`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`