sig
  val debug : bool Pervasives.ref
  val debug_print : string -> unit
  val http_version : Http_types.version
  val server_string : string
  val string_of_version : Http_types.version -> string
  val version_of_string : string -> Http_types.version
  val string_of_method : Http_types.meth -> string
  val method_of_string : string -> Http_types.meth
  val status_of_code : int -> Http_types.status
  val code_of_status : [< Http_types.status ] -> int
  val is_informational : int -> bool
  val is_success : int -> bool
  val is_redirection : int -> bool
  val is_client_error : int -> bool
  val is_server_error : int -> bool
  val is_error : int -> bool
end