summaryrefslogtreecommitdiff
path: root/editor/editor.ml
diff options
context:
space:
mode:
Diffstat (limited to 'editor/editor.ml')
-rwxr-xr-xeditor/editor.ml7
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