package dolmen

  1. Overview
  2. Docs

Source file maps.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

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