summaryrefslogtreecommitdiff
path: root/css
diff options
context:
space:
mode:
Diffstat (limited to 'css')
-rwxr-xr-xcss/merger.ml6
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 =