Hvsock_lwt.In_main_thread
module type MAIN = sig ... end
module Make (Main : MAIN) : S.FN
Call a blocking ('a -> 'b) function in a ('a -> 'b Lwt.t) context