package core

  1. Overview
  2. Docs
Legend:
Library
Module
Module type
Parameter
Class
Class type
type no_change = [
  1. | `No_change_until_at_least of [ `In_range | `Out_of_range ] * Core_kernel.Time.t
]
val sexp_of_no_change : no_change -> Ppx_sexp_conv_lib.Sexp.t
val compare_no_change : no_change -> no_change -> int
type 'tag transition = [
  1. | `Enter of Core_kernel.Time.t * 'tag list
  2. | `Leave of Core_kernel.Time.t
]
val sexp_of_transition : ('tag -> Ppx_sexp_conv_lib.Sexp.t) -> 'tag transition -> Ppx_sexp_conv_lib.Sexp.t
val compare_transition : ('tag -> 'tag -> int) -> 'tag transition -> 'tag transition -> int
type 'tag tag_change = [
  1. | `Change_tags of Core_kernel.Time.t * 'tag list
]
val sexp_of_tag_change : ('tag -> Ppx_sexp_conv_lib.Sexp.t) -> 'tag tag_change -> Ppx_sexp_conv_lib.Sexp.t
val compare_tag_change : ('tag -> 'tag -> int) -> 'tag tag_change -> 'tag tag_change -> int
val to_time : [< no_change | 'tag transition | 'tag tag_change ] -> Core_kernel.Time.t