diff options
Diffstat (limited to 'editor/actions/delete_page.ml')
| -rwxr-xr-x | editor/actions/delete_page.ml | 7 |
1 files changed, 4 insertions, 3 deletions
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) |