Block_time.Timeoutval create : Controller.t -> Span.t -> f:( t -> 'a ) -> 'a tval to_deferred : 'a t -> 'a Async_kernel.Deferred.tval peek : 'a t -> 'a optionval cancel : Controller.t -> 'a t -> 'a -> unitval await :
timeout_duration:Span.t ->
Controller.t ->
'a Async_kernel.Deferred.t ->
[ `Ok of 'a | `Timeout ] Async_kernel.Deferred.tval await_exn :
timeout_duration:Span.t ->
Controller.t ->
'a Async_kernel.Deferred.t ->
'a Async_kernel.Deferred.t