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