diff options
Diffstat (limited to 'library/goptions.ml')
| -rw-r--r-- | library/goptions.ml | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/library/goptions.ml b/library/goptions.ml index b614ed34a..b5a8b00ea 100644 --- a/library/goptions.ml +++ b/library/goptions.ml @@ -77,8 +77,7 @@ module MakeTable = if List.mem_assoc nick !A.table then error "Sorry, this table name is already used" - module MyType = struct type t = A.t let compare = Pervasives.compare end - module MySet = Set.Make(MyType) + module MySet = Set.Make (struct type t = A.t let compare = compare end) let t = ref (MySet.empty : MySet.t) @@ -219,8 +218,8 @@ type 'a option_sig = { type option_type = bool * (unit -> value) -> (value -> unit) -module Key = struct type t = option_name let compare = Pervasives.compare end -module OptionMap = Map.Make(Key) +module OptionMap = + Map.Make (struct type t = option_name let compare = compare end) let value_tab = ref OptionMap.empty |