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