Block_producer.Singleton_supervisor
type ('data, 'a) t
val create : task:( unit Async.Ivar.t -> 'data -> ( 'a, unit ) Interruptible.t ) -> ( 'data, 'a ) t
val cancel : ( _, _ ) t -> unit
val dispatch : ( 'data, 'a ) t -> 'data -> ( 'a, unit ) Interruptible.t