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

Fixed module issue, thanks Christian

Browse Source
This commit is contained in:
Suzanne Dupéron 2019-10-23 12:17:18 -04:00
parent 535c291b3f
commit c4e996d5aa
1 changed files with 20 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/passes/4-typer/solver.ml
View File

@ -864,13 +864,13 @@ let compare_output_specialize1 { poly = a1; a_k_var = a2 } { poly = b1; a_k_var
let compare_output_break_ctor { a_k_var=a1; a_k'_var'=a2 } { a_k_var=b1; a_k'_var'=b2 } = let compare_output_break_ctor { a_k_var=a1; a_k'_var'=a2 } { a_k_var=b1; a_k'_var'=b2 } =
compare_c_constructor_simpl a1 b1 <? fun () -> compare_c_constructor_simpl a2 b2 compare_c_constructor_simpl a1 b1 <? fun () -> compare_c_constructor_simpl a2 b2
module OutputSpecialize1 : Set.OrderedType = struct module OutputSpecialize1 : (Set.OrderedType with type t = output_specialize1) = struct
type t = output_specialize1 type t = output_specialize1
let compare = compare_output_specialize1 let compare = compare_output_specialize1
end end
module BreakCtor : Set.OrderedType = struct module BreakCtor : (Set.OrderedType with type t = output_break_ctor) = struct
type t = output_break_ctor type t = output_break_ctor
let compare = compare_output_break_ctor let compare = compare_output_break_ctor
end end
@ -917,7 +917,7 @@ let propagator_specialize1 : output_specialize1 propagator =
module M (BlaBla : Set.OrderedType) = struct module M (BlaBla : Set.OrderedType) = struct
module AlreadySelected = Set.Make(BlaBla) module AlreadySelected = Set.Make(BlaBla)
let select_and_propagate : ('old_input, 'selector_output) selector -> BlaBla.t propagator -> 'a -> structured_dbs -> new_constraints * new_assignments = let select_and_propagate : ('old_input, 'selector_output) selector -> BlaBla.t propagator -> 'a -> structured_dbs -> new_constraints * new_assignments =
fun selector propagator -> fun selector propagator ->
fun old_type_constraint dbs -> fun old_type_constraint dbs ->
(* TODO: thread some state to know which selector outputs were already seen *) (* TODO: thread some state to know which selector outputs were already seen *)