From c0c82a7bfe8300b1bd50fee11074837ff32d3da0 Mon Sep 17 00:00:00 2001 From: Sébastien Dailly 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/merger.ml') 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