module Xml : sig..end
module W :
Xml_wrap.T
with type 'a t = 'a
and type 'a tlist = 'a list
and type (-'a, 'b) ft = 'a -> 'b
type uri = string
val uri_of_string : uri -> string
val string_of_uri : string -> uri
val uri_of_fun : (unit -> string) -> uri
type aname = string
type attrib
type caml_event_handler = | CE_registered_closure of string * Eliom_lib.poly | CE_client_closure of
(Js_of_ocaml.Dom_html.event Js_of_ocaml.Js.t -> unit) | CE_client_closure_mouse of
(Js_of_ocaml.Dom_html.mouseEvent Js_of_ocaml.Js.t -> unit) | CE_client_closure_keyboard of
(Js_of_ocaml.Dom_html.keyboardEvent Js_of_ocaml.Js.t -> unit) | CE_client_closure_touch of
(Js_of_ocaml.Dom_html.touchEvent Js_of_ocaml.Js.t -> unit) | CE_call_service of
([ `A | `Form_get | `Form_post ] * (bool * string list) option *
string option * Ocsigen_lib_base.poly)
option Eliom_lazy.request
type internal_event_handler = | Raw of string | Caml of caml_event_handler
type event_handler = Js_of_ocaml.Dom_html.event Js_of_ocaml.Js.t -> unit
type mouse_event_handler = Js_of_ocaml.Dom_html.mouseEvent Js_of_ocaml.Js.t -> unit
type keyboard_event_handler = Js_of_ocaml.Dom_html.keyboardEvent Js_of_ocaml.Js.t -> unit
type touch_event_handler = Js_of_ocaml.Dom_html.touchEvent Js_of_ocaml.Js.t -> unit
type ename = string
type elt
type 'a wrap = 'a
type 'a list_wrap = 'a list
type econtent = private | Empty | Comment of string | EncodedPCDATA of string | PCDATA of string | Entity of string | Leaf of ename * attrib list | Node of
ename * attrib list
* elt list
