From 54f6e68c051afec0d20c349352feee5356e11b35 Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@dailly.me>
Date: Mon, 7 Feb 2022 15:49:48 +0100
Subject: Update editor code

---
 editor/actions/delete_page.ml | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'editor/actions/delete_page.ml')

diff --git a/editor/actions/delete_page.ml b/editor/actions/delete_page.ml
index 5c625bd..9086fc3 100755
--- a/editor/actions/delete_page.ml
+++ b/editor/actions/delete_page.ml
@@ -2,7 +2,7 @@ module M = struct
 
   type t = unit
 
-  let apply
+  let update
     : t -> State.t -> State.t
     = fun () state ->
       match state.page_id with
@@ -15,15 +15,15 @@ module M = struct
 end
 
 let create
-  : unit -> Event.t Note.event
+  : unit -> State.event Note.event
   = fun () ->
     let title = Jstr.v "Confirmation" in
-    let ev = Forms.Ui.popup
+    let ev = Elements.Popup.create
         ~title
         ~form:(Some (Forms.Delete_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 )))
       (Note.E.Option.on_some ev)
-- 
cgit v1.2.3