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

---
 css/dune      |  1 +
 css/merger.ml | 17 ++++++++++-------
 2 files changed, 11 insertions(+), 7 deletions(-)

(limited to 'css')

diff --git a/css/dune b/css/dune
index 65a9c41..1e32b19 100755
--- a/css/dune
+++ b/css/dune
@@ -5,6 +5,7 @@
    brr.note
    elements
    blog
+   application
    Css
    css_lib
    )
diff --git a/css/merger.ml b/css/merger.ml
index 7f525ff..a7c33eb 100755
--- a/css/merger.ml
+++ b/css/merger.ml
@@ -47,7 +47,7 @@ let build_result
       merge_result
 
 let do_action
-  : event -> state -> state
+  : (event, state) Application.t
   = fun event state ->
     match event with
     | AddFile file ->
@@ -230,13 +230,16 @@ let main id =
     let add_file_event, add_file_sender = Note.E.create () in
     let del_file_event, del_file_sender = Note.E.create () in
 
+
     let state =
-      E.select
-        [ E.map (fun f -> AddFile f) add_file_event
-        ; del_file_event
-        ]
-      |> E.map do_action
-      |> Note.S.accum init in
+      Application.run
+        do_action
+        init
+        (E.select
+           [ E.map (fun f -> AddFile f) add_file_event
+           ; del_file_event
+           ])
+    in
 
     let _ = Elr.def_children
         elements
-- 
cgit v1.2.3