Warning: Reason support is experimental. We are looking for beta-tester and contributors.

Module Eliom_content_core.Xml

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