Something went wrong. Try again.
forked from gbury/dolmen
Something went wrong. Try again.
123456789101112131415161718192021222324
module type S = Dolmen_intf.Map.S
module Make(Ord : Map.OrderedType) = struct
include Map.Make(Ord)
let find_exn = find
let find_opt k t = match find k t with | res -> Some res | exception Not_found -> None
let find_add k f t = update k (fun o -> Some (f o)) t
end
module Int = Make(Int)
module String = Maps_string