Module Core__.Schedule.Event

type no_change = [
| `No_change_until_at_least of [ `In_range | `Out_of_range ] * Core__.Import_time.Time.t
]
include sig ... end
val compare_no_change : no_change ‑> no_change ‑> int
val sexp_of_no_change : no_change ‑> Sexplib.Sexp.t
type 'tag transition = [
| `Enter of Core__.Import_time.Time.t * 'tag list
| `Leave of Core__.Import_time.Time.t
]
include sig ... end
val compare_transition : ('tag ‑> 'tag ‑> int) ‑> 'tag transition ‑> 'tag transition ‑> int
val sexp_of_transition : ('tag ‑> Sexplib.Sexp.t) ‑> 'tag transition ‑> Sexplib.Sexp.t
type 'tag tag_change = [
| `Change_tags of Core__.Import_time.Time.t * 'tag list
]
include sig ... end
val compare_tag_change : ('tag ‑> 'tag ‑> int) ‑> 'tag tag_change ‑> 'tag tag_change ‑> int
val sexp_of_tag_change : ('tag ‑> Sexplib.Sexp.t) ‑> 'tag tag_change ‑> Sexplib.Sexp.t
val to_time : [< no_change | 'tag transition | 'tag tag_change ] ‑> Core__.Import_time.Time.t