include sig ... end
val sexp_of_t : ('a ‑> Base.Sexp.t) ‑> 'a t ‑> Base.Sexp.t
val null : Core_kernel__.Import.unit ‑> _ t
null ()
returns an alarm t
such that not (mem timing_wheel t)
for all
timing_wheel
s.
val at : 'a timing_wheel ‑> 'a t ‑> Time.t
All Alarm
functions will raise if not (Timing_wheel.mem timing_wheel t)
.
val interval_num : 'a timing_wheel ‑> 'a t ‑> Interval_num.t
val value : 'a timing_wheel ‑> 'a t ‑> 'a