Source file socket.ml

1
2
3
4
5
6
7
open Util

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

let pp fmt (socket : _ socket) = Fd.pp fmt socket