From c0c82a7bfe8300b1bd50fee11074837ff32d3da0 Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@dailly.me>
Date: Mon, 7 Feb 2022 13:40:36 +0100
Subject: Renamed fonctions in application framework, updated doc

---
 css/merger.ml | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

(limited to 'css')

diff --git a/css/merger.ml b/css/merger.ml
index 47fa906..ea6efe2 100755
--- a/css/merger.ml
+++ b/css/merger.ml
@@ -108,8 +108,7 @@ let file_list
     Ev.listen
       Ev.click
       (fun _ -> sender (
-           App.E( f.file
-                , (module DelFile : App.Event with type t = DelFile.t))))
+          App.dispatch (module DelFile) f.file))
       (El.as_target button);
 
     match f.css with
@@ -215,8 +214,7 @@ let main id =
              with
              |  _ -> None
            in
-           App.E ( { file ; css }
-                 , (module AddFile: App.Event with type t = AddFile.t )))
+           App.dispatch (module AddFile) { file ; css})
         file_event in
 
     let state =
-- 
cgit v1.2.3