diff options
| author | Sébastien Dailly <sebastien@dailly.me> | 2022-02-07 13:43:47 +0100 |
|---|---|---|
| committer | Sébastien Dailly <sebastien@dailly.me> | 2022-02-07 16:43:33 +0100 |
| commit | 6639625c1e24e764692ec9d65939ff9ef50d76df (patch) | |
| tree | 099769a2b400309c3a509df294c3710fe5639536 /editor/app | |
| parent | 47e4ab0cf1b7d364439a1a47df53f2d58a216239 (diff) | |
Rename application functions
Diffstat (limited to 'editor/app')
| -rw-r--r-- | editor/app/editor_app.ml | 4 | ||||
| -rw-r--r-- | editor/app/editor_app.mli | 5 |
2 files changed, 6 insertions, 3 deletions
diff --git a/editor/app/editor_app.ml b/editor/app/editor_app.ml index e4c944a..6bcfc4a 100644 --- a/editor/app/editor_app.ml +++ b/editor/app/editor_app.ml @@ -1,10 +1,12 @@ module App = Application.Make(struct type t = State.t end) -let ev +(* +let dispatch : (module App.Event with type t = 's) -> 's -> App.event = fun (type s) (module M: App.Event with type t = s) v -> App.E ( v , (module M : App.Event with type t = M.t )) + *) include App diff --git a/editor/app/editor_app.mli b/editor/app/editor_app.mli index dade546..aaa4d65 100644 --- a/editor/app/editor_app.mli +++ b/editor/app/editor_app.mli @@ -2,7 +2,7 @@ module type Event = sig type t - val update: t -> State.t -> State.t + val process: t -> State.t -> State.t end @@ -12,5 +12,6 @@ type event = E : 'a * (module Event with type t = 'a) -> event val run : ?eq:(State.t -> State.t -> bool) -> State.t -> event Note.E.t -> State.t Note.S.t -val ev +val dispatch : (module Event with type t = 's) -> 's -> event + |