functor
  (Xml : Xml_sigs.Iterable) (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.result Lwt.t
    val get_etag : ?options:options -> t -> Ocsigen_http_frame.etag option
  end