diff options
Diffstat (limited to 'editor/editor.ml')
-rwxr-xr-x | editor/editor.ml | 7 |
1 files changed, 4 insertions, 3 deletions
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 |