sig
type 'a t
val null : unit -> 'a Timing_wheel_intf.Timing_wheel.Alarm.t
val at :
'a Timing_wheel_intf.Timing_wheel.timing_wheel ->
'a Timing_wheel_intf.Timing_wheel.Alarm.t -> Time.t
val interval_num :
'a Timing_wheel_intf.Timing_wheel.timing_wheel ->
'a Timing_wheel_intf.Timing_wheel.Alarm.t ->
Timing_wheel_intf.Interval_num.t
val value :
'a Timing_wheel_intf.Timing_wheel.timing_wheel ->
'a Timing_wheel_intf.Timing_wheel.Alarm.t -> 'a
val sexp_of_t :
('a -> Sexplib.Sexp.t) ->
'a Timing_wheel_intf.Timing_wheel.Alarm.t -> Sexplib.Sexp.t
end