diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-03-03 03:42:49 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-03-03 03:43:21 +0100 |
| commit | 7b7187ab30c945f7929299833a92ee01737519a6 (patch) | |
| tree | 5991e300ed276b6ca6b6fdd08e6449a2e4e23754 /library/goptions.ml | |
| parent | 3ec4c04b4a2f497cd1b933dbf6b646b923ee6690 (diff) | |
Goptions do not rely anymore on generic equality.
Diffstat (limited to 'library/goptions.ml')
| -rw-r--r-- | library/goptions.ml | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/library/goptions.ml b/library/goptions.ml index 7ceac2f6a..8402abd34 100644 --- a/library/goptions.ml +++ b/library/goptions.ml @@ -43,6 +43,7 @@ module MakeTable = (A : sig type t type key + val compare : t -> t -> int val table : (string * key table_of_A) list ref val encode : key -> t val subst : substitution -> t -> t @@ -63,7 +64,7 @@ module MakeTable = if String.List.mem_assoc nick !A.table then error "Sorry, this table name is already used." - module MySet = Set.Make (struct type t = A.t let compare = compare end) + module MySet = Set.Make (struct type t = A.t let compare = A.compare end) let t = if A.synchronous @@ -135,6 +136,7 @@ module StringConvert = functor (A : StringConvertArg) -> struct type t = string type key = string + let compare = String.compare let table = string_table let encode x = x let subst _ x = x @@ -155,6 +157,7 @@ let get_ref_table k = String.List.assoc (nickname k) !ref_table module type RefConvertArg = sig type t + val compare : t -> t -> int val encode : reference -> t val subst : substitution -> t -> t val printer : t -> std_ppcmds @@ -168,6 +171,7 @@ module RefConvert = functor (A : RefConvertArg) -> struct type t = A.t type key = reference + let compare = A.compare let table = ref_table let encode = A.encode let subst = A.subst |