sig
  type result = HttpError of string | HttpMsg of Http.Pdu.t * bool
  type t = {
    parzer : (Http.Pdu.t, char) Peg.parzer;
    mutable emit : Bitstring.bitstring -> unit;
    mutable recv : Http.TRXtop.result -> unit;
  }
  val set_emit : Http.TRXtop.t -> (Bitstring.bitstring -> unit) -> unit
  val set_recv : Http.TRXtop.t -> (Http.TRXtop.result -> unit) -> unit
  val make : unit -> Http.TRXtop.t
  val tx : Http.TRXtop.t -> Http.Pdu.t -> unit
  val rx : Http.TRXtop.t -> Bitstring.bitstring -> unit
end