From 92fe01fc6e93faf3ef77b45eb77632bc2806f202 Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@dailly.me>
Date: Mon, 7 Feb 2022 15:26:02 +0100
Subject: Reformat
---
css/merger.ml | 13 ++++++++-----
1 file 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]
--
cgit v1.2.3