Module Http.Pdu

module Pdu: sig .. end

type t = {

val string_of_cmd : Http.cmd -> string

type parse_item = [ `HttpHeaders of Http.header list
       | `HttpRequest of string * string
       | `HttpResponse of int * string ] 

val make_request : string -> string -> ?body:string -> Http.header list -> t

val make_status : Http.code -> Http.header list -> string -> t

val parzer : unit -> char list -> bool -> (t, char) Peg.parzer_result

val pack : t -> Bitstring.bitstring

val unpack : Bitstring.bitstring -> t option