diff options
| author | Sébastien Dailly <sebastien@dailly.me> | 2021-12-03 04:19:53 +0100 |
|---|---|---|
| committer | Sébastien Dailly <sebastien@dailly.me> | 2022-02-07 16:43:33 +0100 |
| commit | c6265278f05aa4d3af60e420f2d4d13e4bce8ad7 (patch) | |
| tree | dece2b116d79a052a00e20c1ee2f7677c64190f9 /editor/actions/delete_page.ml | |
| parent | e78c236a8d28784370f192a3410693c456dc628f (diff) | |
Removed the application mecanism from the state module
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) |