From 54f6e68c051afec0d20c349352feee5356e11b35 Mon Sep 17 00:00:00 2001 From: Sébastien Dailly Date: Mon, 7 Feb 2022 15:49:48 +0100 Subject: Update editor code --- editor/editor.ml | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) (limited to 'editor/editor.ml') 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 -- cgit v1.2.3