diff options
| author | Sébastien Dailly <sebastien@dailly.me> | 2021-12-03 04:37:14 +0100 |
|---|---|---|
| committer | Sébastien Dailly <sebastien@dailly.me> | 2022-02-07 16:43:33 +0100 |
| commit | 47e4ab0cf1b7d364439a1a47df53f2d58a216239 (patch) | |
| tree | d2dd3e37d0168d114198777c78b5278a9d77c254 /editor/actions/add_page.ml | |
| parent | c6265278f05aa4d3af60e420f2d4d13e4bce8ad7 (diff) | |
Helper to build application events
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. *) |