From 47e4ab0cf1b7d364439a1a47df53f2d58a216239 Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@dailly.me>
Date: Fri, 3 Dec 2021 04:37:14 +0100
Subject: Helper to build application events

---
 editor/actions/add_page.ml | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

(limited to 'editor/actions/add_page.ml')

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.
       *)
-- 
cgit v1.2.3