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

type string_ci = Case_insensitive of string [@@unboxed]
let pp_string_ci ppf (Case_insensitive s) = Fmt.string ppf s
let string_ci s = Case_insensitive (String.lowercase_ascii s)
let empty_string_ci = Case_insensitive ""