diff options
Diffstat (limited to 'css/merger.ml')
| -rwxr-xr-x | css/merger.ml | 17 |
1 files changed, 10 insertions, 7 deletions
diff --git a/css/merger.ml b/css/merger.ml index 7f525ff..a7c33eb 100755 --- a/css/merger.ml +++ b/css/merger.ml @@ -47,7 +47,7 @@ let build_result merge_result let do_action - : event -> state -> state + : (event, state) Application.t = fun event state -> match event with | AddFile file -> @@ -230,13 +230,16 @@ let main id = let add_file_event, add_file_sender = Note.E.create () in let del_file_event, del_file_sender = Note.E.create () in + let state = - E.select - [ E.map (fun f -> AddFile f) add_file_event - ; del_file_event - ] - |> E.map do_action - |> Note.S.accum init in + Application.run + do_action + init + (E.select + [ E.map (fun f -> AddFile f) add_file_event + ; del_file_event + ]) + in let _ = Elr.def_children elements |