sig
  exception No_such_host
  val get_inet_addr : ?v6:bool -> string -> Unix.inet_addr Lwt.t
  val of_sockaddr : Unix.sockaddr -> Unix.inet_addr
end