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

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

diff --git a/editor/actions/export.ml b/editor/actions/export.ml
index 657e0da..ea4f8ce 100755
--- a/editor/actions/export.ml
+++ b/editor/actions/export.ml
@@ -33,7 +33,4 @@ end
 (** Create a new element *)
 let create
   : unit -> App.event
-  = fun () ->
-    App.E
-      ( ()
-      , (module M : App.Event with type t = M.t ))
+  = fun () -> App.ev (module M) ()
-- 
cgit v1.2.3