Update to new interface of Lwt_js_events.transitionend

Author: balat

opam

@@ -1,6 +1,6 @@
 opam-version: "2.0"
 name: "ocsigen-toolkit"
-version: "3.2.0"
+version: "3.3.0"
 maintainer: "[email protected]"
 synopsis: "Reusable UI components for Eliom applications (client only, or client-server)"
 description: "The Ocsigen Toolkit is a set of user interface widgets that facilitate the development of Eliom applications."
@@ -13,7 +13,7 @@ build: [ make "-j%{jobs}%" ]
 install: [ make "install" ]
 depends: [
   "ocaml" {>= "4.08.0"}
-  "js_of_ocaml" {>= "4.0.0" & < "4.1.0"}
+  "js_of_ocaml" {>= "4.1.0"}
   "eliom" {>= "6.12.1"}
   "calendar" {>= "2.0.0"}
 ]

src/widgets/ot_carousel.eliom

@@ -294,7 +294,11 @@ let%shared make ?(a = []) ?(vertical = false) ?(position = 0)
          set_active ();
          Lwt.async (fun () ->
            let%lwt () =
-             if move then Lwt_js_events.transitionend d2' else Lwt.return_unit
+             if move
+             then
+               let%lwt _ = Lwt_js_events.transitionend d2' in
+               Lwt.return_unit
+             else Lwt.return_unit
            in
            Eliom_lib.Option.iter (fun f -> f ()) transitionend;
            Manip.Class.remove ~%d2 ot_swiping;

src/widgets/ot_drawer.eliom

@@ -130,7 +130,7 @@ let%shared drawer ?(a = []) ?(position = `Left) ?(opened = false)
          add_class ~%bckgrnd "closing";
          Lwt.cancel !(~%touch_thread);
          Lwt_js_events.async (fun () ->
-           let%lwt () = Lwt_js_events.transitionend (To_dom.of_element ~%d) in
+           let%lwt _ = Lwt_js_events.transitionend (To_dom.of_element ~%d) in
            remove_class ~%bckgrnd "closing";
            Eliom_lib.Option.iter (fun f -> f ()) ~%onclose;
            Lwt.return_unit)
@@ -154,7 +154,7 @@ let%shared drawer ?(a = []) ?(position = `Left) ?(opened = false)
          Eliom_client.Page_status.onactive ~stop:(fst ~%stop_open_event)
            (fun () -> html_ManipClass_add "ot-drawer-open");
          Lwt_js_events.async (fun () ->
-           let%lwt () = Lwt_js_events.transitionend (To_dom.of_element ~%d) in
+           let%lwt _ = Lwt_js_events.transitionend (To_dom.of_element ~%d) in
            remove_class ~%bckgrnd "opening";
            Lwt.return_unit)
        : unit -> unit)]
@@ -225,7 +225,7 @@ let%shared drawer ?(a = []) ?(position = `Left) ?(opened = false)
                    (Js.Unsafe.coerce dr##.style)##.webkitTransform
                    := Js.string "";
                    Lwt.async (fun () ->
-                     let%lwt () = Lwt_js_events.transitionend dr in
+                     let%lwt _ = Lwt_js_events.transitionend dr in
                      Manip.Class.remove ~%bckgrnd "ot-swiping";
                      Lwt.return_unit);
                    cl ()
@@ -234,7 +234,7 @@ let%shared drawer ?(a = []) ?(position = `Left) ?(opened = false)
                    (Js.Unsafe.coerce dr##.style)##.webkitTransform
                    := Js.string "";
                    Lwt.async (fun () ->
-                     let%lwt () = Lwt_js_events.transitionend dr in
+                     let%lwt _ = Lwt_js_events.transitionend dr in
                      Manip.Class.remove ~%bckgrnd "ot-swiping";
                      Lwt.return_unit)
                | `Abort ->

src/widgets/ot_swipe.eliom

@@ -119,7 +119,7 @@ let%shared bind ?(transition_duration = 0.3)
            elt'##.style##.left := px_of_int left;
            Eliom_lib.Option.iter (fun f -> f ev left) ~%onend;
            Lwt.async (fun () ->
-             let%lwt () = Lwt_js_events.transitionend elt' in
+             let%lwt _ = Lwt_js_events.transitionend elt' in
              Manip.Class.remove elt "ot-swiping";
              Lwt.return_unit));
          status := Stopped;

src/widgets/ot_tongue.eliom

@@ -246,7 +246,9 @@ let%client bind side stops init handle update set_before_signal set_after_signal
     Lwt.async (fun () ->
       let%lwt () =
         if stop <> previousstop
-        then Lwt_js_events.transitionend elt'
+        then
+          let%lwt _ = Lwt_js_events.transitionend elt' in
+          Lwt.return_unit
         else Lwt.return_unit
       in
       set_after_signal stop; Lwt.return_unit);