diff options
author | Sébastien Dailly <sebastien@dailly.me> | 2022-02-07 15:49:48 +0100 |
---|---|---|
committer | Sébastien Dailly <sebastien@dailly.me> | 2022-02-07 16:43:33 +0100 |
commit | 54f6e68c051afec0d20c349352feee5356e11b35 (patch) | |
tree | b9cf8c7c64538728c9f6e864896c00d32641b834 /editor/actions/actions.ml | |
parent | fe2cced55e1b44dbae57e55fe0f459c85e7369cb (diff) |
Update editor code
Diffstat (limited to 'editor/actions/actions.ml')
-rwxr-xr-x | editor/actions/actions.ml | 14 |
1 files changed, 6 insertions, 8 deletions
diff --git a/editor/actions/actions.ml b/editor/actions/actions.ml index b150279..f35beef 100755 --- a/editor/actions/actions.ml +++ b/editor/actions/actions.ml @@ -3,12 +3,10 @@ open Js_of_ocaml open Brr open Brr_note -module Event = Event - type button_actions = - { delete : Event.t Note.event - ; redirect : Event.t Note.event - ; add: Event.t Note.event + { delete : State.event Note.event + ; redirect : State.event Note.event + ; add: State.event Note.event } let populate_menu @@ -87,19 +85,19 @@ let populate_menu - the list for all the pages presents in the sidebar *) let redirect_handler = - (module Load_page.M : Event.Handler with type t = Load_page.M.t ) in + (module Load_page.M : State.Event with type t = Load_page.M.t ) in let redirect_event = Note.E.select (( Evr.on_el Ev.click - (fun _ -> Event.E (None, redirect_handler)) + (fun _ -> State.E (None, redirect_handler)) home_button ) :: ( List.map2 stored_pages pages ~f:(fun name el -> Evr.on_el Ev.click - (fun _ -> Event.E ((Some name), redirect_handler)) + (fun _ -> State.E ((Some name), redirect_handler)) el ))) in let childs = |