# Module Timing_wheel_intf.Timing_wheel.Alarm

    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_wheel`s.

    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_wheel`s.
All `Alarm` functions will raise if `not (Timing_wheel.mem timing_wheel t)`.