Reformat

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]