From 56a215bb448870b48befd78668d7bb39e0530f51 Mon Sep 17 00:00:00 2001 From: Sébastien Dailly Date: Mon, 7 Feb 2022 15:19:29 +0100 Subject: Update input element --- css/merger.ml | 2 +- lib/elements/input.ml | 6 +++--- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/css/merger.ml b/css/merger.ml index 569dd27..2a681be 100755 --- a/css/merger.ml +++ b/css/merger.ml @@ -203,7 +203,7 @@ let main id = let del_file_event, del_file_sender = Note.E.create () in - let file_event, input = Elements.Input.file_loader + let input, file_event = Elements.Input.file_loader (Jstr.v "css") in let add_file_event = diff --git a/lib/elements/input.ml b/lib/elements/input.ml index 8a082d8..62175d5 100755 --- a/lib/elements/input.ml +++ b/lib/elements/input.ml @@ -45,7 +45,7 @@ let file_loader *) let file_loader - : Jstr.t -> file Note.event * Brr.El.t + : Jstr.t -> Brr.El.t * file Note.event = fun selector -> let add_file_event, add_file_sender = Note.E.create () in @@ -66,5 +66,5 @@ let file_loader Ev.change (fun _e -> on_change (El.Input.files i)) (El.as_target i); - ( add_file_event - , i ) + ( i + , add_file_event ) -- cgit v1.2.3