diff options
Diffstat (limited to 'editor/actions/add_page.ml')
-rwxr-xr-x | editor/actions/add_page.ml | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/editor/actions/add_page.ml b/editor/actions/add_page.ml index 5e52d43..1da8e3f 100755 --- a/editor/actions/add_page.ml +++ b/editor/actions/add_page.ml @@ -36,9 +36,7 @@ let create () in Note.E.map - (fun v -> App.E - (v - , (module M : App.Event with type t = M.t ))) + (fun v -> App.ev (module M) v) (* Option.on_some trigger the event only when the pop up is validated. Closing the popup doesn't do anything. *) |