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