Source file `common.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
module Direct = struct
  type 'a t = 'a

  let return x = x
  let bind x f = f x
  let map f x = f x
end

module Addr = struct
  type t = Eio.Net.Ipaddr.v4v6

  let compare = Stdlib.compare
  let pp = Eio.Net.Ipaddr.pp
end