From c6265278f05aa4d3af60e420f2d4d13e4bce8ad7 Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@dailly.me>
Date: Fri, 3 Dec 2021 04:19:53 +0100
Subject: Removed the application mecanism from the state module

---
 editor/actions/delete_page.ml | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

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

diff --git a/editor/actions/delete_page.ml b/editor/actions/delete_page.ml
index fbd4fde..7fa609b 100755
--- a/editor/actions/delete_page.ml
+++ b/editor/actions/delete_page.ml
@@ -1,3 +1,4 @@
+module App = Editor_app
 module M = struct
 
   type t = unit
@@ -14,7 +15,7 @@ module M = struct
 end
 
 let create
-  : unit -> State.event Note.event
+  : unit -> App.event Note.event
   = fun () ->
     let title = Jstr.v "Confirmation"
     and message =
@@ -26,7 +27,7 @@ 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 )))
       (Note.E.Option.on_some ev)
-- 
cgit v1.2.3