Renamed fonctions in application framework, updated doc

1 files changed, 2 insertions, 4 deletions

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 =