summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSébastien Dailly <sebastien@dailly.me>2022-02-07 15:26:02 +0100
committerSébastien Dailly <sebastien@dailly.me>2022-02-07 16:22:43 +0100
commit92fe01fc6e93faf3ef77b45eb77632bc2806f202 (patch)
tree6494d6b4f6e412df45b3356806d3449a048fce4d
parent6cfd03b483b5edd809b7c94d74df2eb93ffa70aa (diff)
Reformat
-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]