Module State.Clock
type t
= Incremental__.Types.Clock.t
=
{
timing_wheel : Incremental__.Alarm_value.t Core_kernel.Timing_wheel_ns.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 Core_kernel.Timing_wheel_ns.t
module Fields : sig ... end
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val invariant : t -> unit