module Alarm: sig .. end
type 'a t
val null : unit -> 'a t
null () returns an alarm t such that not (mem timing_wheel t) for all
timing_wheels.
val at : 'a Timing_wheel_intf.Timing_wheel.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_intf.Timing_wheel.timing_wheel ->
'a t -> Timing_wheel_intf.Interval_num.t
val value : 'a Timing_wheel_intf.Timing_wheel.timing_wheel ->
'a t -> 'a
val sexp_of_t : ('a -> Sexplib.Sexp.t) ->
'a t -> Sexplib.Sexp.t
null () returns an alarm t such that not (mem timing_wheel t) for all
timing_wheels.
All Alarm functions will raise if not (Timing_wheel.mem timing_wheel t).