val run_at : Time.t -> ('a -> unit) -> 'a -> unitval run_after : Time.Span.t -> ('a -> unit) -> 'a -> unitval at : Time.t -> unit Async_kernel.Clock_intf.Deferred.tval after : Time.Span.t -> unit Async_kernel.Clock_intf.Deferred.tval with_timeout :
Time.Span.t ->
'a Async_kernel.Clock_intf.Deferred.t ->
[ `Timeout | `Result of 'a ] Async_kernel.Clock_intf.Deferred.tmodule Event : sig ... endval at_varying_intervals :
?stop:unit Async_kernel.Clock_intf.Deferred.t ->
(unit -> Time.Span.t) ->
unit Async_kernel.Tail.Stream.tval at_intervals :
?start:Time.t ->
?stop:unit Async_kernel.Clock_intf.Deferred.t ->
Time.Span.t ->
unit Async_kernel.Tail.Stream.tval every' :
?start:unit Async_kernel.Clock_intf.Deferred.t ->
?stop:unit Async_kernel.Clock_intf.Deferred.t ->
?continue_on_error:bool ->
?finished:unit Async_kernel.Ivar.t ->
Time.Span.t ->
(unit -> unit Async_kernel.Clock_intf.Deferred.t) ->
unitval every :
?start:unit Async_kernel.Clock_intf.Deferred.t ->
?stop:unit Async_kernel.Clock_intf.Deferred.t ->
?continue_on_error:bool ->
Time.Span.t ->
(unit -> unit) ->
unitval run_at_intervals' :
?start:Time.t ->
?stop:unit Async_kernel.Clock_intf.Deferred.t ->
?continue_on_error:bool ->
Time.Span.t ->
(unit -> unit Async_kernel.Clock_intf.Deferred.t) ->
unitval run_at_intervals :
?start:Time.t ->
?stop:unit Async_kernel.Clock_intf.Deferred.t ->
?continue_on_error:bool ->
Time.Span.t ->
(unit -> unit) ->
unit