Removed the application mecanism from the state module

1 files changed, 5 insertions, 3 deletions

diff --git a/editor/actions/add_page.ml b/editor/actions/add_page.ml
index fcad87f..5e52d43 100755
--- a/editor/actions/add_page.ml
+++ b/editor/actions/add_page.ml
@@ -1,4 +1,5 @@
 module Js = Js_of_ocaml.Js
+module App = Editor_app
 
 module M = struct
 
@@ -16,9 +17,10 @@ module M = struct
       State.new_page ~title (Some page_id) state
 end
 
+
 (** Create a new element *)
 let create
-  : unit -> State.event Note.event
+  : unit -> App.event Note.event
   = fun () ->
     let title = Jstr.v "Nouvelle page" in
     let form = Forms.Add_page.create () in
@@ -34,9 +36,9 @@ let create
         ()
     in
     Note.E.map
-      (fun v -> State.E
+      (fun v -> App.E
           (v
-          , (module M : State.Event with type t = M.t )))
+          , (module M : App.Event with type t = M.t )))
       (* Option.on_some trigger the event only when the pop up is validated.
          Closing the popup doesn't do anything.
       *)