summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xcss/merger.ml13
1 files changed, 8 insertions, 5 deletions
diff --git a/css/merger.ml b/css/merger.ml
index d82df98..752a38f 100755
--- a/css/merger.ml
+++ b/css/merger.ml
@@ -66,7 +66,7 @@ end
(** Read the content from the file *)
let file_loader
- : file E.send -> File.t -> unit
+ : file Note.E.send -> File.t -> unit
= fun event file ->
let blob = File.as_blob file in
Fut.await
@@ -244,6 +244,7 @@ let main id =
])
in
+ (* For each file, add a delete button *)
let _ = Elr.def_children
elements
(S.map (fun state ->
@@ -256,18 +257,20 @@ let main id =
| _ ->
List.append
(header::elements)
- (display_content state.result_css)
- )
+ (display_content state.result_css))
state) in
- let on_change files = file_loader add_file_sender (List.hd files) in
+ let on_change files =
+ file_loader
+ add_file_sender
+ (List.hd files) in
+
let header = El.span [] in
Elr.def_children
header
(S.map (fun state ->
buttons ~on_change state)
-
state);
El.set_children (Jv.Id.of_jv id) [El.p [header]; elements]