From c6265278f05aa4d3af60e420f2d4d13e4bce8ad7 Mon Sep 17 00:00:00 2001 From: Sébastien Dailly Date: Fri, 3 Dec 2021 04:19:53 +0100 Subject: Removed the application mecanism from the state module --- editor/editor.ml | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'editor/editor.ml') diff --git a/editor/editor.ml b/editor/editor.ml index 2441265..d272f56 100755 --- a/editor/editor.ml +++ b/editor/editor.ml @@ -113,6 +113,7 @@ module Store = struct end end +module App = Editor_app let app id content = @@ -139,15 +140,15 @@ let app id content = let btn_events = Editor_actions.get_event side_elements in (* Create the main event loop with all the collected events *) - let app_state = State.run + let app_state = App.run ~eq:State.eq init_state (Note.E.select [ Brr_note.Evr.on_els Ev.focusout (fun _ _ -> - State.E + App.E ( title - , (module Store:State.Event with type t = Store.t))) + , (module Store:App.Event with type t = Store.t))) [ editor ; title ] ; btn_events ]) in -- cgit v1.2.3