diff options
Diffstat (limited to 'library/heads.ml')
-rw-r--r-- | library/heads.ml | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/library/heads.ml b/library/heads.ml index 1b1dba43f..ea3acbbe8 100644 --- a/library/heads.ml +++ b/library/heads.ml @@ -39,12 +39,8 @@ type head_approximation = (** Registration as global tables and rollback. *) -module Evalreford = struct - type t = evaluable_global_reference - let compare = Pervasives.compare -end - -module Evalrefmap = Map.Make(Evalreford) +module Evalrefmap = + Map.Make (struct type t = evaluable_global_reference let compare = compare end) let head_map = ref Evalrefmap.empty |