diff --git a/cabal.project b/cabal.project index c1ed263..6a2e1ea 100644 --- a/cabal.project +++ b/cabal.project @@ -9,4 +9,4 @@ flags: +template-haskell source-repository-package type: git location: https://github.com/dmjio/miso - tag: 1.10.0 + tag: 1.11.0 diff --git a/src/Main.hs b/src/Main.hs index 7fe7147..4f944e1 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -64,7 +64,7 @@ app = (component emptyModel updateModel viewModel) emptyModel :: Model emptyModel = Model Nothing ---------------------------------------------------------------------------- -updateModel :: Action -> Effect ROOT Model Action +updateModel :: Action -> Effect ROOT props Model Action updateModel = \case FetchGitHub -> getJSON "https://api.github.com" [] SetGitHub ErrorHandler @@ -74,8 +74,8 @@ updateModel = \case io_ (consoleError body) ---------------------------------------------------------------------------- -- | View function, with routing -viewModel :: Model -> View Model Action -viewModel m = +viewModel :: props -> Model -> View Model Action +viewModel _ m = H.div_ [ CSS.style_ [ CSS.textAlign "center"