Module 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