From c0c82a7bfe8300b1bd50fee11074837ff32d3da0 Mon Sep 17 00:00:00 2001 From: Sébastien Dailly Date: Mon, 7 Feb 2022 13:40:36 +0100 Subject: Renamed fonctions in application framework, updated doc --- script.it/script.ml | 9 ++------- 1 file changed, 2 insertions(+), 7 deletions(-) (limited to 'script.it') diff --git a/script.it/script.ml b/script.it/script.ml index 78a45b3..eb12458 100755 --- a/script.it/script.ml +++ b/script.it/script.ml @@ -171,10 +171,7 @@ let set_sidebar let process t state = { state with State.rendering = t } end in - - State.E - ( render_type - , (module M: State.Event with type t = Layer.Paths.printer )) + State.dispatch (module M) render_type ) rendering' in @@ -440,9 +437,7 @@ let page_main id = (fun pos f -> let module Tick = Script_event.Tick in Option.map (fun p -> - State.E - ( (f, p) - , (module Tick: State.Event with type t = Tick.t ))) + State.dispatch (module Tick) (f, p)) pos ) in (* The first evaluation is the state. Which is the result of all the -- cgit v1.2.3