Clock (mina_incremental.Mina_incremental.Make.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 t

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 t

val after : t -> Incremental__.Import.Time_ns.Span.t -> Before_or_after.t t

val at_intervals : t -> Incremental__.Import.Time_ns.Span.t -> unit t

val step_function : 
  t ->
  init:'a ->
  (Incremental__.Import.Time_ns.t * 'a) list ->
  'a t

val incremental_step_function : t -> 'a Step_function.t t -> 'a t

val snapshot : 
  t ->
  'a t ->
  at:Incremental__.Import.Time_ns.t ->
  before:'a ->
  'a t Core_kernel.Or_error.t