diff --git a/app/Main.hs b/app/Main.hs index 2f4a6ae..fd5f1b6 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -37,7 +37,7 @@ app = (component 0 updateModel viewModel) { styles = [ Sheet sheet ] } ----------------------------------------------------------------------------- -updateModel :: Action -> Effect parent Int Action +updateModel :: Action -> Effect parent props Int Action updateModel = \case AddOne -> this += 1 @@ -46,8 +46,8 @@ updateModel = \case SayHelloWorld -> io_ (consoleLog "Hello World!") ----------------------------------------------------------------------------- -viewModel :: Int -> View Int Action -viewModel x = H.div_ +viewModel :: props -> Int -> View Int Action +viewModel _ x = H.div_ [ P.class_ "counter-container" ] [ H.h1_ [ P.class_ "counter-title" diff --git a/cabal.project b/cabal.project index 6aa6f1b..4e4bf72 100644 --- a/cabal.project +++ b/cabal.project @@ -7,6 +7,6 @@ allow-newer: source-repository-package type: git location: https://github.com/dmjio/miso - tag: 1.10.0 + tag: 1.11.0 flags: +template-haskell