sig
  type t =
      Char
    | Fifo
    | File
    | Socket of [ `Active | `Bound | `Passive | `Unconnected ]
end