`type t`````
`include sig ... end`
`val t_of_sexp : Base.Sexp.t ‑> t`
`val sexp_of_t : t ‑> Base.Sexp.t`
`include Core_kernel__.Import.Invariant.S with type t := t`
`type t`````
`val invariant : t Base__.Invariant_intf.inv`
`val create : ?⁠level_bits:Level_bits.t ‑> alarm_precision:Alarm_precision.t ‑> Core_kernel__.Import.unit ‑> t`

`create` raises if `alarm_precision <= 0`.

`val alarm_precision : t ‑> Time.Span.t`

accessors

`val level_bits : t ‑> Level_bits.t`
`val durations : t ‑> Time.Span.t Core_kernel__.Import.list`

`durations t` returns the durations of the levels in `t`

`val microsecond_precision : Core_kernel__.Import.unit ‑> t`

`microsecond_precision ()` returns a reasonable configuration for a timing wheel with microsecond `alarm_precision`, and level durations of 1ms, 1s, 1m, 1h, 1d. See the relevant expect test in `Core_kernel_test` library.