commit f11959da5a630a7dca47497c9543231d9698b406
Author: Vasilis Papavasileiou <git@vasilis.airpost.net>
Date:   Fri Aug 7 11:16:20 2015 +0200

    Tyxml_js: ft constructor in Xml_wrap (forward-compatibility)

diff --git a/lib/tyxml/tyxml_js.ml b/lib/tyxml/tyxml_js.ml
index 4799600..cdf7cd2 100644
--- a/lib/tyxml/tyxml_js.ml
+++ b/lib/tyxml/tyxml_js.ml
@@ -164,6 +164,7 @@ module Html5 = Html5_f.Make(Xml)(Svg)
 module Xml_wrap = struct
   type 'a t = 'a React.signal
   type 'a tlist = 'a ReactiveData.RList.t
+  type ('a, 'b) ft = 'a -> 'b
   let return = React.S.const
   let fmap f = React.S.map f
   let nil () = ReactiveData.RList.nil
diff --git a/lib/tyxml/tyxml_js.mli b/lib/tyxml/tyxml_js.mli
index 8cb33c5..db2183e 100644
--- a/lib/tyxml/tyxml_js.mli
+++ b/lib/tyxml/tyxml_js.mli
@@ -50,6 +50,7 @@ module Xml : XML with module W = Xml_wrap.NoWrap
 module Xml_wrap : Xml_wrap.T
   with type 'a t = 'a React.signal
    and type 'a tlist = 'a ReactiveData.RList.t
+   and type ('a, 'b) ft = 'a -> 'b
 
 module Util : sig
   val update_children : Dom.node Js.t -> Dom.node Js.t ReactiveData.RList.t -> unit