diff options
Diffstat (limited to 'script.it/script.ml')
-rwxr-xr-x | script.it/script.ml | 9 |
1 files changed, 2 insertions, 7 deletions
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 |