type ('a, 'h) t
=
|
Aborted of 'a
Happened of 'h
include sig ... end
val sexp_of_t : ('a ‑> Base.Sexp.t) ‑> ('h ‑> Base.Sexp.t) ‑> ('a, 'h) t ‑> Base.Sexp.t