Module Header_protocol.R

type 'message t =
| Need_more_data
| Ok of 'message * int
| Junk of exn * (int, exn) Core.Result.t
val sexp_of_t : ('message -> Ppx_sexp_conv_lib.Sexp.t) -> 'message t -> Ppx_sexp_conv_lib.Sexp.t