|
include Lwt.Syntax
|
|
include Lwt.Infix
|
|
|
|
type sockaddr = Unix.sockaddr
|
|
type fd = Lwt_unix.file_descr
|
|
|
|
let pp_sockaddr ppf = function
|
|
| Unix.ADDR_INET (adr, port) -> Fmt.pf ppf "%s:%d" (Unix.string_of_inet_addr adr) port
|
|
| Unix.ADDR_UNIX path -> Fmt.string ppf path
|