Source file `types.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
module Path = struct
  type t = string [@@deriving show]

  let of_string = Base.Fn.id

  let to_string = Base.Fn.id
end

module Ip = struct
  type t = string [@@deriving show]

  let of_string = Base.Fn.id

  let to_string = Base.Fn.id
end