Removed the application mecanism from the state module

1 files changed, 4 insertions, 3 deletions

diff --git a/editor/editor.ml b/editor/editor.ml
index 2441265..d272f56 100755
--- a/editor/editor.ml
+++ b/editor/editor.ml
@@ -113,6 +113,7 @@ module Store = struct
       end
 end
 
+module App = Editor_app
 
 let app id content =
 
@@ -139,15 +140,15 @@ let app id content =
     let btn_events = Editor_actions.get_event side_elements in
 
     (* Create the main event loop with all the collected events *)
-    let app_state = State.run
+    let app_state = App.run
         ~eq:State.eq
         init_state
         (Note.E.select
            [ Brr_note.Evr.on_els Ev.focusout
                (fun _ _ ->
-                  State.E
+                  App.E
                     ( title
-                    , (module Store:State.Event with type t = Store.t)))
+                    , (module Store:App.Event with type t = Store.t)))
                [ editor ; title ]
            ; btn_events
            ]) in