Module T1.Event

module Status : sig ... end
type t = {
mutable alarm : Async_kernel__Types.Job_or_event.t Alarm.t;
mutable at : Time_ns.t;
callback : unit -> unit;
execution_context : Async_kernel.Execution_context.t;
mutable interval : Time_ns.Span.t option;
mutable next_fired : t;
mutable status : Status.t;
}
val status : t -> Status.t
val set_status : t -> Status.t -> unit
val next_fired : t -> t
val set_next_fired : t -> t -> unit
val interval : t -> Time_ns.Span.t option
val set_interval : t -> Time_ns.Span.t option -> unit
val execution_context : t -> Async_kernel.Execution_context.t
val callback : t -> unit -> unit
val at : t -> Time_ns.t
val set_at : t -> Time_ns.t -> unit
val alarm : t -> Async_kernel__Types.Job_or_event.t Alarm.t
val set_alarm : t -> Async_kernel__Types.Job_or_event.t Alarm.t -> unit
module Fields : sig ... end
val none : t
val is_none : t -> bool
val is_some : t -> bool
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val invariant : t -> unit
val compare_at : t -> t -> int
val set_status : t -> Status.t -> unit