type -'rw t = 'rw Async_kernel__.Types.Time_source.t1 = {events : Async_kernel__.Job.t Core_kernel.Timing_wheel_ns.t; |
handle_fired : Async_kernel__.Job.t Core_kernel.Timing_wheel_ns.Alarm.t ‑> unit; |
is_wall_clock : bool; |
scheduler : Scheduler.t; |
}val scheduler : 'a t ‑> Scheduler.tval is_wall_clock : 'a t ‑> boolval handle_fired : 'a t ‑> Async_kernel__.Job.t Core_kernel.Timing_wheel_ns.Alarm.t ‑> unitval events : 'a t ‑> Async_kernel__.Job.t Core_kernel.Timing_wheel_ns.tmodule Fields : sig ... endval sexp_of_t : 'a ‑> 'b t ‑> Sexplib0.Sexp.tval invariant : 'a t ‑> unit