updates for latest halogen, purs and svg-parser 2.0.0 (#3)

Author: afcondon

bower.json

@@ -19,10 +19,10 @@
     "docs"
   ],
   "dependencies": {
-    "purescript-svg-parser": "^1.0.0",
-    "purescript-halogen": "^5.0.0-rc.7"
+    "purescript-halogen": "^6.1.0",
+    "purescript-svg-parser": "^2.0.0"
   },
   "devDependencies": {
-    "purescript-psci-support": "^4.0.0"
+    "purescript-psci-support": "^5.0.0"
   }
 }

example/bower.json

@@ -8,10 +8,11 @@
     "output"
   ],
   "dependencies": {
-    "purescript-svg-parser": "^1.0.0",
-    "purescript-halogen": "^5.0.0-rc.7"
+    "purescript-halogen": "^6.0.0",
+    "purescript-string-parsers": "^6.0.0",
+    "purescript-svg-parser": "^2.0.0"
   },
   "devDependencies": {
-    "purescript-psci-support": "^4.0.0"
+    "purescript-psci-support": "^5.0.0"
   }
 }

example/src/App.purs

@@ -9,7 +9,10 @@ import Halogen.HTML as HH
 import Halogen.HTML.Events as E
 import Halogen.HTML.Properties as P
 import Icons (iconCheck, iconCode, iconEye, iconGithub, iconHeart)
+import Control.Monad.State (class MonadState)
+import Effect.Aff.Class (class MonadAff)
 
+type Query :: forall k. k -> Type
 type Query = Const Void
 
 data Action = Toggle
@@ -27,7 +30,7 @@ render state =
     , HH.div_
       [ iconCheck
           [ className checkClassName
-          , E.onClick $ Just <<< const Toggle
+          , E.onClick $ const Toggle
           ]
       , HH.text (show state.on)
       ]
@@ -52,8 +55,8 @@ render state =
   repoUrl = "https://github.com/rnons/purescript-svg-parser-halogen"
   demoSourceUrl = repoUrl <> "/tree/master/example"
 
-app :: forall m. H.Component HH.HTML Query Unit Void m
-app = H.mkComponent
+component :: forall query input output m. MonadAff m => H.Component query input output m
+component = H.mkComponent
   { initialState: const initialState
   , render
   , eval: H.mkEval $ H.defaultEval
@@ -65,7 +68,9 @@ app = H.mkComponent
   initialState :: State
   initialState = { on: false }
 
-  handleAction :: Action -> H.HalogenM State Action () Void m Unit
-  handleAction = case _ of
-    Toggle -> do
-      H.modify_ (\state -> { on: not state.on })
+handleAction :: forall m.
+  MonadState State m =>
+  Action -> m Unit
+handleAction = case _ of
+  Toggle -> do
+    H.modify_ (\state -> { on: not state.on })

example/src/Main.purs

@@ -4,9 +4,9 @@ import Prelude
 import Effect (Effect)
 import Halogen.Aff as HA
 import Halogen.VDom.Driver (runUI)
-import App (app)
+import App (component)
 
 main :: Effect Unit
 main = HA.runHalogenAff do
   body <- HA.awaitBody
-  runUI app unit body
+  runUI component unit body