builder-web/lib/utils.ml

8 lines
165 B
OCaml

module String_map = struct
include Map.Make(String)
let add_or_create key v t=
update key (function None -> Some [ v ] | Some xs -> Some (v :: xs)) t
end