sig
  exception Connection_closed
  exception Lost_connection of exn
  exception Timeout
  exception Keepalive_timeout
  exception Aborted
  type mode = Answer | Query | Nofirstline
  type connection
  val create_receiver :
    Http_com.mode -> Lwt_ssl.socket -> Http_com.connection
  val lock_receiver : Http_com.connection -> unit Lwt.t
  val unlock_receiver : Http_com.connection -> unit
  val get_http_frame :
    ?head:bool -> Http_com.connection -> Http_frame.t Lwt.t
  type slot
  val start_processing :
    Http_com.connection -> (Http_com.slot -> unit Lwt.t) -> unit
  val wait_all_senders : Http_com.connection -> unit Lwt.t
  val write_stream :
    ?chunked:bool ->
    Lwt_chan.out_channel -> string Ocsistream.t -> unit Lwt.t
  type sender_type
  val create_sender :
    ?server_name:string ->
    ?headers:Http_headers.t ->
    ?proto:Http_frame.Http_header.proto -> unit -> Http_com.sender_type
  val default_sender : Http_com.sender_type
  val send :
    Http_com.slot ->
    clientproto:Http_frame.Http_header.proto ->
    ?mode:Http_frame.Http_header.http_mode ->
    ?proto:Http_frame.Http_header.proto ->
    keep_alive:bool ->
    head:bool ->
    sender:Http_com.sender_type -> Http_frame.result -> unit Lwt.t
  val abort : Http_com.connection -> unit
end