diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/util.ml | 2 | ||||
| -rw-r--r-- | lib/util.mli | 1 |
2 files changed, 3 insertions, 0 deletions
diff --git a/lib/util.ml b/lib/util.ml index f7e50204c1..be6f67dc16 100644 --- a/lib/util.ml +++ b/lib/util.ml @@ -252,6 +252,8 @@ type ('a,'b) union = Inl of 'a | Inr of 'b module Intset = Set.Make(struct type t = int let compare = compare end) +module Intmap = Map.Make(struct type t = int let compare = compare end) + let out_some = function | Some x -> x | None -> failwith "out_some" diff --git a/lib/util.mli b/lib/util.mli index a9d7d05b3c..484b2d61e7 100644 --- a/lib/util.mli +++ b/lib/util.mli @@ -73,6 +73,7 @@ val repeat : int -> ('a -> unit) -> 'a -> unit type ('a,'b) union = Inl of 'a | Inr of 'b module Intset : Set.S with type elt = int +module Intmap : Map.S with type key = int val out_some : 'a option -> 'a val option_app : ('a -> 'b) -> 'a option -> 'b option |