functor (XML : XML_sigs.Iterable->
  functor
    (TypedXML : 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 = TypedXML.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