From 6639625c1e24e764692ec9d65939ff9ef50d76df Mon Sep 17 00:00:00 2001 From: Sébastien Dailly Date: Mon, 7 Feb 2022 13:43:47 +0100 Subject: Rename application functions --- editor/app/editor_app.ml | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'editor/app/editor_app.ml') 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 -- cgit v1.2.3