diff options
Diffstat (limited to 'editor/editor.ml')
-rwxr-xr-x | editor/editor.ml | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/editor/editor.ml b/editor/editor.ml index a991b25..79ad54a 100755 --- a/editor/editor.ml +++ b/editor/editor.ml @@ -58,7 +58,7 @@ let build_view module Store = struct type t = unit - let apply + let update : t -> State.t -> State.t = fun () state -> let title_element = Document.find_el_by_id G.document (Jstr.v "title") in @@ -123,15 +123,14 @@ let app id content = let init_state = State.init pm view last_backup page_id in - let app_state = Application.run + let app_state = State.run ~eq:State.eq - (App.update ) init_state (Note.E.select [ Brr_note.Evr.on_el Ev.focusout (fun _ -> - (Actions.Event.E + (State.E ( () - , (module Store:Actions.Event.Handler with type t = Store.t)))) editor + , (module Store:State.Event with type t = Store.t)))) editor ; Note.E.map (fun ev -> ev) btn_events.Actions.delete ; Note.E.map (fun ev -> ev) btn_events.Actions.add ; Note.E.map (fun v -> v) btn_events.Actions.redirect |