From 6639625c1e24e764692ec9d65939ff9ef50d76df Mon Sep 17 00:00:00 2001 From: Sébastien Dailly Date: Mon, 7 Feb 2022 13:43:47 +0100 Subject: Rename application functions --- editor/actions/editor_actions.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'editor/actions/editor_actions.ml') diff --git a/editor/actions/editor_actions.ml b/editor/actions/editor_actions.ml index 8ff2cab..eadf1e7 100755 --- a/editor/actions/editor_actions.ml +++ b/editor/actions/editor_actions.ml @@ -125,14 +125,14 @@ let build Note.E.select [ Evr.on_el Ev.click - (fun _ -> App.ev (module Load_page.M) None) + (fun _ -> App.dispatch (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.ev (module Load_page.M) name) + App.dispatch (module Load_page.M) name) ul ] in let childs = -- cgit v1.2.3