Module `State.Clock`

type t = Incremental__.Types.Clock.t = { timing_wheel : Incremental__.Alarm_value.t Timing_wheel.t; now : Incremental__.Import.Time_ns.t Incremental.Var.t; handle_fired : Incremental__.Alarm.t -> unit; mutable fired_alarm_values : Incremental__.Alarm_value.t Incremental__.Import.Uopt.t; }

val fired_alarm_values : t -> Incremental__.Alarm_value.t Incremental__.Import.Uopt.t
val set_fired_alarm_values : t -> Incremental__.Alarm_value.t Incremental__.Import.Uopt.t -> unit
val handle_fired : t -> Incremental__.Alarm.t -> unit
val now : t -> Incremental__.Import.Time_ns.t Incremental.Var.t
val timing_wheel : t -> Incremental__.Alarm_value.t Timing_wheel.t

module Fields : sig ... end

val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t

val invariant : t -> unit
val incr_state : t -> Incremental__.Types.State.t