Update editor code

1 files changed, 4 insertions, 5 deletions

diff --git a/editor/editor.ml b/editor/editor.ml
index a991b25..79ad54a 100755
--- a/editor/editor.ml
+++ b/editor/editor.ml
@@ -58,7 +58,7 @@ let build_view
 module Store = struct
   type t = unit
 
-  let apply
+  let update
     : t -> State.t -> State.t
     = fun () state ->
       let title_element = Document.find_el_by_id G.document (Jstr.v "title") in
@@ -123,15 +123,14 @@ let app id content =
 
     let init_state = State.init pm view last_backup page_id in
 
-    let app_state = Application.run
+    let app_state = State.run
         ~eq:State.eq
-        (App.update )
         init_state
         (Note.E.select
            [ Brr_note.Evr.on_el Ev.focusout (fun _ ->
-                 (Actions.Event.E
+                 (State.E
                     ( ()
-                    , (module Store:Actions.Event.Handler with type t = Store.t)))) editor
+                    , (module Store:State.Event with type t = Store.t)))) editor
            ; Note.E.map (fun ev -> ev) btn_events.Actions.delete
            ; Note.E.map (fun ev -> ev) btn_events.Actions.add
            ; Note.E.map (fun v  -> v)  btn_events.Actions.redirect