diff --git a/src/Fabulous.Core/ElmishProgram.fs b/src/Fabulous.Core/ElmishProgram.fs index 99d9f2727..a7157e8cc 100644 --- a/src/Fabulous.Core/ElmishProgram.fs +++ b/src/Fabulous.Core/ElmishProgram.fs @@ -1,4 +1,4 @@ -// Copyright 2018 Elmish and Fabulous contributors. See LICENSE.md for license. +// Copyright 2018 Elmish and Fabulous contributors. See LICENSE.md for license. namespace Fabulous.Core open System @@ -123,7 +123,7 @@ type ProgramRunner<'model, 'msg>(app: Application, program: Program<'model, 'msg member __.CurrentModel = lastModel - member __.Dispatch = dispatch + member __.Dispatch(msg) = dispatch msg member runner.ChangeProgram(newProgram: Program (obj -> unit) -> ViewElement>) : unit = Device.BeginInvokeOnMainThread(fun () ->