diff options
| author | Sébastien Dailly <sebastien@dailly.me> | 2022-02-07 15:19:29 +0100 |
|---|---|---|
| committer | Sébastien Dailly <sebastien@dailly.me> | 2022-02-07 16:22:43 +0100 |
| commit | 56a215bb448870b48befd78668d7bb39e0530f51 (patch) | |
| tree | 42eb0546b6126438511d05b1e3da41f377fe1b56 | |
| parent | 3ce21441d5116b69eb511f5dba70765ec6eccbd2 (diff) | |
Update input element
| -rwxr-xr-x | css/merger.ml | 2 | ||||
| -rwxr-xr-x | 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 ) |