balsoft/ligo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix indentation of one function (only whitespace change)

Browse Source
This commit is contained in:
Suzanne Dupéron 2020-05-07 23:01:50 +01:00
parent b2ee003577
commit d5a6f46452
1 changed files with 20 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/passes/8-typer-new/solver.ml
View File

@ -629,7 +629,10 @@ let propagator_specialize1 : output_specialize1 propagator =
match selector old_type_constraint dbs with
WasSelected selected_outputs ->
(* TODO: fold instead. *)
let (already_selected , selected_outputs) = List.fold_left (fun (already_selected, selected_outputs) elt -> if mem elt already_selected then (RedBlackTrees.PolySet.add elt already_selected , elt :: selected_outputs)
let (already_selected , selected_outputs) =
List.fold_left (fun (already_selected, selected_outputs) elt ->
if mem elt already_selected
then (RedBlackTrees.PolySet.add elt already_selected , elt :: selected_outputs)
else (already_selected , selected_outputs)) (already_selected , selected_outputs) selected_outputs in
(* Call the propagation rule *)
let new_contraints_and_assignments = List.map (fun s -> propagator s dbs) selected_outputs in