Source file socket.ml

1
2
3
4
5
open Util

type 'kind socket = Fd.t
type listen_socket = [ `listen ] socket
type stream_socket = [ `stream ] socket