module type S = sig exception Try_again val resolve : string -> Unix.host_entry val try_resolve : string -> Unix.host_entry end module Make (P : sig val resolve : string -> Unix.host_entry val max_active_threads : int end) : S