1 files changed, 6 insertions, 5 deletions
diff --git a/editor/actions/editor_actions.ml b/editor/actions/editor_actions.ml
index 518e0c7..48974c0 100755
--- a/editor/actions/editor_actions.ml
+++ b/editor/actions/editor_actions.ml
@@ -1,6 +1,7 @@
 open StdLabels
 open Brr
 open Brr_note
+module App = Editor_app
 
 module Js = Js_of_ocaml.Js
 
@@ -9,7 +10,7 @@ module Js = Js_of_ocaml.Js
 let note_id_attribute = Jstr.v "data-note-id"
 
 type t =
-  { ev : State.event Note.event
+  { ev : App.event Note.event
   ; childs : El.t list
   ; ul : El.t
   ; mutable completed : bool
@@ -108,7 +109,7 @@ let build
 
 
     let redirect_handler =
-      (module Load_page.M : State.Event with type t = Load_page.M.t ) in
+      (module Load_page.M : App.Event with type t = Load_page.M.t ) in
 
     let ul = El.ul [] in
 
@@ -127,14 +128,14 @@ let build
       Note.E.select
         [ Evr.on_el
             Ev.click
-            (fun _ -> State.E (None, redirect_handler))
+            (fun _ -> App.E (None, redirect_handler))
             home_button
         ; Evr.on_el
             Ev.click
             (fun ev ->
                let el = Jv.Id.of_jv @@ Jv.Id.to_jv @@ Ev.target ev in
                let name = El.at note_id_attribute el in
-               State.E (name, redirect_handler))
+               App.E (name, redirect_handler))
             ul ] in
 
     let childs =
@@ -163,7 +164,7 @@ let build
     ; completed = false }
 
 let get_event
-  : t -> State.event Note.event
+  : t -> App.event Note.event
   = fun {ev; _} -> ev
 
 (** Collect all the notes in the cache and return them into links. *)