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

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

diff --git a/editor/actions/to_markdown.ml b/editor/actions/to_markdown.ml
index 80191f9..f3c6517 100755
--- a/editor/actions/to_markdown.ml
+++ b/editor/actions/to_markdown.ml
@@ -291,6 +291,4 @@ end
 let create
   : PM.t -> App.event
   = fun pm ->
-    App.E
-      ( pm
-      , (module ToMarkdown : App.Event with type t = ToMarkdown.t ))
+    App.ev (module ToMarkdown) pm
-- 
cgit v1.2.3