sig
  type t
  val result_of_content :
    Http_frame.HTTP_CONTENT.t -> Http_frame.result Lwt.t
  val get_etag : Http_frame.HTTP_CONTENT.t -> Http_frame.etag option
end