Hvsock_lwt.S
module type FN = sig ... end
Call a blocking ('a -> 'b) function in a ('a -> 'b Lwt.t) context
module type SOCKET = sig ... end