type t
=
|
Ok
Currently_happening
Previously_aborted
Previously_happened
include sig ... end
val sexp_of_t : t ‑> Base.Sexp.t