From 5d5549c168af51195e66bf67cc5b23382b8c7d52 Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@dailly.me>
Date: Mon, 7 Feb 2022 16:09:14 +0100
Subject: Changed the organisation in the applications

---
 script.it/script.ml | 25 +++++++++++++------------
 1 file changed, 13 insertions(+), 12 deletions(-)

(limited to 'script.it/script.ml')

diff --git a/script.it/script.ml b/script.it/script.ml
index a1857db..ba6b828 100755
--- a/script.it/script.ml
+++ b/script.it/script.ml
@@ -392,18 +392,19 @@ let page_main id =
         (* The first evaluation is the state. Which is the result of all the
            successives events to the initial state *)
         let state =
-          E.select
-            [ worker_event
-            ; canva_events
-            ; tick_event
-            ; angle_event
-            ; width_event
-            ; delete_event
-            ; export_event
-            ; parameters.rendering
-            ]
-          |> E.map (State.do_action worker timer)
-          |> Note.S.accum State.init in
+          Application.run
+            (State.do_action worker timer)
+            State.init
+            (E.select
+               [ worker_event
+               ; canva_events
+               ; tick_event
+               ; angle_event
+               ; width_event
+               ; delete_event
+               ; export_event
+               ; parameters.rendering ])
+        in
 
         (* The seconde evaluation is the canva refresh, which only occurs when
            the mouse is updated, or on delete events  *)
-- 
cgit v1.2.3