From 6639625c1e24e764692ec9d65939ff9ef50d76df Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@dailly.me>
Date: Mon, 7 Feb 2022 13:43:47 +0100
Subject: Rename application functions

---
 editor/app/editor_app.ml  | 4 +++-
 editor/app/editor_app.mli | 5 +++--
 2 files changed, 6 insertions(+), 3 deletions(-)

(limited to 'editor/app')

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
+      
-- 
cgit v1.2.3