sig
  type response = {
    socket : Unix.file_descr;
    status : int;
    headers : (string, string) Stdlib.Hashtbl.t;
    body : string;
  }
  val response_body : Http.Response.response -> string
  val response_status : Http.Response.response -> int
  val response_of_socket : Unix.file_descr -> Http.Response.response
  val send_line : Http.Response.response -> string -> unit
  val phrase_of_status_code : int -> string
  val send_headers : Http.Response.response -> unit
  val send : Http.Response.response -> unit
  val set_status : int -> Http.Response.response -> Http.Response.response
  val set_header :
    string -> string -> Http.Response.response -> Http.Response.response
  val set_body : string -> Http.Response.response -> Http.Response.response
  val send_string : string -> Http.Response.response -> unit
end