Block_producer.Singleton_scheduler
type t
val create : Block_time.Controller.t -> t
val schedule : t -> Block_time.t -> f:( unit -> unit ) -> unit
If you reschedule when already scheduled, take the min of the two schedulings