Module Clock_event

module Clock_event: sig .. end

val __pa_ounit_275876e34cf609db118f3d84b799a790 : string

module Scheduler: Raw_scheduler

val debug : bool

type t = Execution_context.t Raw_clock_event.t 

val sexp_of_t : Execution_context.t Raw_clock_event.t -> Sexplib.Sexp.t

val events : unit ->
       Scheduler.Execution_context.t Scheduler.Clock_event.t
       Events.t

val status : 'a Raw_clock_event.T.t -> [> `Aborted | `Happened | `Waiting ]

val fire : Execution_context.t Raw_clock_event.t -> unit

val abort : Scheduler.Execution_context.t Raw_clock_event.t ->
       [> `Ok | `Previously_aborted | `Previously_happened ]

val at : Core.Std.Time.t ->
       Scheduler.Execution_context.t Raw_clock_event.T.t *
       [ `Aborted | `Happened ] Ivar.Deferred.t