From e05ad9ae536a40f080d5d1c03e8468fb842d09ef Mon Sep 17 00:00:00 2001 From: David Johnson <875324+dmjio@users.noreply.github.com> Date: Thu, 4 Jun 2026 02:54:01 -0500 Subject: [PATCH 1/2] Update library tag to version 1.11.0 --- cabal.project | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 From dfccf8197e2bdec24198a5815e03c0bf0ecfbdfb Mon Sep 17 00:00:00 2001 From: David Johnson <875324+dmjio@users.noreply.github.com> Date: Thu, 4 Jun 2026 02:55:09 -0500 Subject: [PATCH 2/2] Refactor updateModel and viewModel signatures --- src/Main.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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"