functor (Timing_wheel : Timing_wheel_intf.Timing_wheel) ->
sig
val create_unit :
?level_bits:Timing_wheel.Level_bits.t ->
?start:Timing_wheel.Time.t ->
?alarm_precision:Timing_wheel.Time.Span.t ->
unit -> unit Timing_wheel.t
end