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