Module `1-Incr.Clock`

type t = state_witness Incremental.Clock.t

val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t

val default_timing_wheel_config : Timing_wheel.Config.t
val create : ?⁠timing_wheel_config:Timing_wheel.Config.t -> start:Incremental__.Import.Time_ns.t -> unit -> t
val alarm_precision : t -> Incremental__.Import.Time_ns.Span.t
val timing_wheel_length : t -> int
val now : t -> Incremental__.Import.Time_ns.t
val watch_now : t -> Incremental__.Import.Time_ns.t incremental
val advance_clock : t -> to_:Incremental__.Import.Time_ns.t -> unit
val advance_clock_by : t -> Incremental__.Import.Time_ns.Span.t -> unit
val at : t -> Incremental__.Import.Time_ns.t -> Before_or_after.t incremental
val after : t -> Incremental__.Import.Time_ns.Span.t -> Before_or_after.t incremental
val at_intervals : t -> Incremental__.Import.Time_ns.Span.t -> unit incremental
val step_function : t -> init:'a -> (Incremental__.Import.Time_ns.t * 'a) list -> 'a incremental
val incremental_step_function : t -> 'a Step_function.t incremental -> 'a incremental
val snapshot : t -> 'a incremental -> at:Incremental__.Import.Time_ns.t -> before:'a -> 'a incremental Core_kernel.Or_error.t