diff options
Diffstat (limited to 'editor/actions/add_page.ml')
-rwxr-xr-x | editor/actions/add_page.ml | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/editor/actions/add_page.ml b/editor/actions/add_page.ml index 3ada726..4a3fcf3 100755 --- a/editor/actions/add_page.ml +++ b/editor/actions/add_page.ml @@ -9,7 +9,7 @@ module M = struct = fun title -> title - let apply + let update : t -> State.t -> State.t = fun {title} state -> let page_id = key_of_title title in @@ -24,17 +24,17 @@ end (** Create a new element *) let create - : unit -> Event.t Note.event + : unit -> State.event Note.event = fun () -> let title = Jstr.v "Nouvelle page" in - let ev = Forms.Ui.popup + let ev = Elements.Popup.create ~title ~form:(Some (Forms.Add_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 ))) (* Option.on_some trigger the event only when the pop up is validated. Closing the popup doesn't do anything. *) |