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/editor.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'editor/editor.ml') diff --git a/editor/editor.ml b/editor/editor.ml index ee2ee0d..575e164 100755 --- a/editor/editor.ml +++ b/editor/editor.ml @@ -60,7 +60,7 @@ let build_view module Store = struct type t = El.t - let update + let process : t -> State.t -> State.t = fun title_element state -> let title = El.prop (El.Prop.value) title_element in @@ -145,7 +145,7 @@ let app id content = init_state (Note.E.select [ Brr_note.Evr.on_els Ev.focusout - (fun _ _ -> App.ev (module Store) title) + (fun _ _ -> App.dispatch (module Store) title) [ editor ; title ] ; btn_events ]) in -- cgit v1.2.3