Update editor code

1 files changed, 5 insertions, 5 deletions

diff --git a/editor/actions/add_page.ml b/editor/actions/add_page.ml
index 3ada726..4a3fcf3 100755
--- a/editor/actions/add_page.ml
+++ b/editor/actions/add_page.ml
@@ -9,7 +9,7 @@ module M = struct
     = fun title ->
       title
 
-  let apply
+  let update
     : t -> State.t -> State.t
     = fun {title} state ->
       let page_id = key_of_title title in
@@ -24,17 +24,17 @@ end
 
 (** Create a new element *)
 let create
-  : unit -> Event.t Note.event
+  : unit -> State.event Note.event
   = fun () ->
     let title = Jstr.v "Nouvelle page" in
-    let ev = Forms.Ui.popup
+    let ev = Elements.Popup.create
         ~title
         ~form:(Some (Forms.Add_page.create ()))
     in
     Note.E.map
-      (fun v -> Event.E
+      (fun v -> State.E
           (v
-          , (module M : Event.Handler with type t = M.t )))
+          , (module M : State.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.
       *)