compare (lowercase) has a bit of a special meaning in OCaml, renaming the Compare module to Compare_types for now to avoid potential confusion (?)

2020-06-24 20:23:36 +01:00 · 2020-06-24 20:23:36 +01:00 · 0dc4315359
commit 0dc4315359
parent e319e2d2cd
2 changed files with 1 additions and 1 deletions
--- a/src/passes/09-typing/08-typer-new/compare_types.ml
+++ b/src/passes/09-typing/08-typer-new/compare_types.ml
--- a/src/passes/09-typing/08-typer-new/typer.ml
+++ b/src/passes/09-typing/08-typer-new/typer.ml
@ -14,7 +14,7 @@ module Map = RedBlackTrees.PolyMap
 open Todo_use_fold_generator

 let assert_type_expression_eq ((tv',tv):O.type_expression * O.type_expression) : (unit,typer_error) result = 
-  Compare.assert_type_expression_eq (tv' , tv)
+  Compare_types.assert_type_expression_eq (tv' , tv)

 (*
  Extract pairs of (name,type) in the declaration and add it to the environment