lib/utilities.ml


1
2
3
4
5
6
7
8
9
10
11

module StringMap = Map.Make (String)
module StringSet = Set.Make (String)

module Result = struct
  let ( let* ) = Result.bind
  let fmap f m = Result.bind m f
end

module Option = struct
  let ( let* ) = Option.bind
end