type 'a t
=
| Input_closed |
| Input_closed_in_the_middle_of_data of 'a Core.Unpack_buffer.t |
| Output_closed |
| Unpack_error of Core.Error.t |
include sig ... end
val sexp_of_t : ('a ‑> Sexplib.Sexp.t) ‑> 'a t ‑> Sexplib.Sexp.t
val to_error : _ t ‑> Core.Error.t