Source file `ocaml_env.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
type t = Default | User_defined of string

let mk = function None | Some "" -> Default | Some s -> User_defined s
let name = function Default -> "" | User_defined s -> s

let pp ppf = function
  | Default -> Fmt.string ppf "Default"
  | User_defined s -> Fmt.pf ppf "User_defined %S" s

type env = t

module Set = Set.Make (struct
  type t = env

  let compare = compare
end)