Module Core_profiler__Header_protocol.R

type 'message t =
| Need_more_data
| Ok of 'message * int
| Junk of exn * (int, exn) Core.Result.t
include sig ... end
val sexp_of_t : ('message ‑> Base.Sexp.t) ‑> 'message t ‑> Base.Sexp.t