Module Future.In_thread

val run : (unit -> 'a) -> 'a Deferred.t