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