sig
module Helper_thread :
sig
type t = In_thread.Helper_thread.t
val create :
?name_first16:string -> unit -> [ `Ok of t | `Out_of_threads ]
end
val pipe_of_squeue : 'a Core.Std.Squeue.t -> 'a Async_core.Pipe.Reader.t
val run :
?thread:Helper_thread.t ->
?name_first16:string -> (unit -> 'a) -> 'a Async_core.Deferred.t
val syscall :
(unit -> 'a) -> ('a, exn) Core.Std.Result.t Async_core.Deferred.t
val syscall_exn : (unit -> 'a) -> 'a Async_core.Deferred.t
val ounit_tests : unit -> OUnit.test
end