functor (Xml : Xml_sigs.Iterable->
  functor
    (Typed_xml : sig
                   module Info : Xml_sigs.Info
                   type 'a elt
                   type doc
                   val toelt : 'a elt -> Xml.elt
                   val doc_toelt : doc -> Xml.elt
                 end->
    sig
      type t = Typed_xml.doc
      type options = Http_headers.accept Lazy.t
      val result_of_content :
        ?options:options -> t -> Ocsigen_http_frame.result Lwt.t
      val get_etag : ?options:options -> t -> Ocsigen_http_frame.etag option
    end