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/editor.ml | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

(limited to 'editor/editor.ml')

diff --git a/editor/editor.ml b/editor/editor.ml
index d272f56..ee2ee0d 100755
--- a/editor/editor.ml
+++ b/editor/editor.ml
@@ -145,10 +145,7 @@ let app id content =
         init_state
         (Note.E.select
            [ Brr_note.Evr.on_els Ev.focusout
-               (fun _ _ ->
-                  App.E
-                    ( title
-                    , (module Store:App.Event with type t = Store.t)))
+               (fun _ _ -> App.ev (module Store) title)
                [ editor ; title ]
            ; btn_events
            ]) in
-- 
cgit v1.2.3