Up

Module Event

Signature

type no_change = [
| `No_change_until_at_least of [
| `In_range
| `Out_of_range
] * Time.t
]
val compare_no_change : no_change -> no_change -> int
val sexp_of_no_change : no_change -> Sexplib.Sexp.t
type 'tag transition = [
| `Enter of Time.t * 'tag list
| `Leave of Time.t
]
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 Time.t * 'tag list
]
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
] -> Time.t