aboutsummaryrefslogtreecommitdiff
path: root/editor/app
diff options
context:
space:
mode:
authorSébastien Dailly <sebastien@dailly.me>2022-02-07 13:43:47 +0100
committerSébastien Dailly <sebastien@dailly.me>2022-02-07 16:43:33 +0100
commit6639625c1e24e764692ec9d65939ff9ef50d76df (patch)
tree099769a2b400309c3a509df294c3710fe5639536 /editor/app
parent47e4ab0cf1b7d364439a1a47df53f2d58a216239 (diff)
Rename application functions
Diffstat (limited to 'editor/app')
-rw-r--r--editor/app/editor_app.ml4
-rw-r--r--editor/app/editor_app.mli5
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
+