diff options
| -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 ) |