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/editor_actions.ml | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

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

diff --git a/editor/actions/editor_actions.ml b/editor/actions/editor_actions.ml
index 48974c0..8ff2cab 100755
--- a/editor/actions/editor_actions.ml
+++ b/editor/actions/editor_actions.ml
@@ -108,9 +108,6 @@ let build
     in
 
 
-    let redirect_handler =
-      (module Load_page.M : App.Event with type t = Load_page.M.t ) in
-
     let ul = El.ul [] in
 
     (* Wait for a click on an existing page in order to sent the associated
@@ -128,14 +125,14 @@ let build
       Note.E.select
         [ Evr.on_el
             Ev.click
-            (fun _ -> App.E (None, redirect_handler))
+            (fun _ -> App.ev (module Load_page.M) None)
             home_button
         ; Evr.on_el
             Ev.click
             (fun ev ->
                let el = Jv.Id.of_jv @@ Jv.Id.to_jv @@ Ev.target ev in
                let name = El.at note_id_attribute el in
-               App.E (name, redirect_handler))
+               App.ev (module Load_page.M) name)
             ul ] in
 
     let childs =
-- 
cgit v1.2.3