From 4975e73125b3935ca148e8b563d99c7f81fecaea Mon Sep 17 00:00:00 2001
From: Raptazure <hermit0x9@outlook.com>
Date: Wed, 10 Mar 2021 04:02:04 +0800
Subject: [PATCH] Update to PureScript 0.14 and Halogen 6 (#29)

---
 package.json        |  8 ++++----
 packages.dhall      |  2 +-
 src/App/Button.purs | 19 +++++++++----------
 3 files changed, 14 insertions(+), 15 deletions(-)

diff --git a/package.json b/package.json
index aa66dfc..8fc8f94 100644
--- a/package.json
+++ b/package.json
@@ -1,13 +1,13 @@
 {
   "private": true,
   "devDependencies": {
-    "parcel": "^1.12.4",
-    "purescript": "^0.13.8",
-    "spago": "^0.15.3"
+    "parcel": "1.12.3",
+    "purescript": "^0.14.0",
+    "spago": "^0.19.1"
   },
   "scripts": {
     "build": "spago build",
     "serve": "parcel dev/index.html --open",
     "build-prod": "mkdir -p prod && cp dev/index.html prod/ && rm -rf dist && spago bundle-app --to prod/index.js && parcel build prod/index.html"
   }
-}
\ No newline at end of file
+}
diff --git a/packages.dhall b/packages.dhall
index e01462d..d10cbd7 100644
--- a/packages.dhall
+++ b/packages.dhall
@@ -118,7 +118,7 @@ let additions =
 -}
 
 let upstream =
-      https://github.com/purescript/package-sets/releases/download/psc-0.13.8-20200615/packages.dhall sha256:5d0cfad9408c84db0a3fdcea2d708f9ed8f64297e164dc57a7cf6328706df93a
+      https://raw.githubusercontent.com/purescript/package-sets/a0938edbed99b8739dcfc9303bda8e264f7fe853/src/packages.dhall sha256:595d52db8e1a061c5b5b7bddeea05c3d7167cd8ead86f19554611c568464f21f
 
 let overrides = {=}
 
diff --git a/src/App/Button.purs b/src/App/Button.purs
index 77959ab..f619516 100644
--- a/src/App/Button.purs
+++ b/src/App/Button.purs
@@ -1,35 +1,34 @@
 module App.Button where
 
 import Prelude
-
-import Data.Maybe (Maybe(..))
 import Halogen as H
 import Halogen.HTML as HH
 import Halogen.HTML.Events as HE
 
-type State = { count :: Int }
+type State
+  = { count :: Int }
 
-data Action = Increment
+data Action
+  = Increment
 
-component :: forall q i o m. H.Component HH.HTML q i o m
+component :: forall q i o m. H.Component q i o m
 component =
   H.mkComponent
     { initialState: \_ -> { count: 0 }
     , render
-    , eval: H.mkEval $ H.defaultEval { handleAction = handleAction }
+    , eval: H.mkEval H.defaultEval { handleAction = handleAction }
     }
 
 render :: forall cs m. State -> H.ComponentHTML Action cs m
 render state =
   HH.div_
-    [ HH.p_ 
+    [ HH.p_
         [ HH.text $ "You clicked " <> show state.count <> " times" ]
     , HH.button
-        [ HE.onClick \_ -> Just Increment ]
+        [ HE.onClick \_ -> Increment ]
         [ HH.text "Click me" ]
     ]
 
 handleAction :: forall cs o m. Action → H.HalogenM State Action cs o m Unit
 handleAction = case _ of
-  Increment ->
-    H.modify_ \st -> st { count = st.count + 1 }
+  Increment -> H.modify_ \st -> st { count = st.count + 1 }