diff options
| -rwxr-xr-x | css/merger.ml | 13 |
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] |