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