Module WorkerLoopSource

Sourceval start : init:(unit -> unit) -> loop:(unit -> unit) -> unit