Make.Scheduler
type +'a s = 'a Lwt.t
type t
val inj : 'a s -> ('a, t) Sigs.io
val prj : ('a, t) Sigs.io -> 'a s