summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xcss/merger.ml2
-rwxr-xr-xlib/elements/input.ml6
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 )