From ea82a8738d42b005241eb26e355600e4a1eee7f4 Mon Sep 17 00:00:00 2001
From: Kamil Braun <kb346840@students.mimuw.edu.pl>
Date: Mon, 23 Jul 2018 22:59:40 +0200
Subject: [PATCH] Update dependencies for PureScript 0.12

---
 .gitignore         |  1 +
 bower.json         |  6 ++++--
 package.json       | 11 ++++++-----
 src/Component.purs |  2 +-
 src/Main.purs      |  4 ++--
 5 files changed, 14 insertions(+), 10 deletions(-)

diff --git a/.gitignore b/.gitignore
index 3c97271..c321496 100644
--- a/.gitignore
+++ b/.gitignore
@@ -5,3 +5,4 @@
 /node_modules/
 /output/
 /dist/app.js
+package-lock.json
diff --git a/bower.json b/bower.json
index 71bc501..d0bf7ef 100644
--- a/bower.json
+++ b/bower.json
@@ -9,7 +9,9 @@
     "dist"
   ],
   "dependencies": {
-    "purescript-console": "^3.0.0",
-    "purescript-halogen": "^2.0.0"
+    "purescript-halogen": "^4.0.0",
+    "purescript-prelude": "^4.1.0",
+    "purescript-console": "^4.1.0",
+    "purescript-effect": "^2.0.0"
   }
 }
diff --git a/package.json b/package.json
index c97846a..db7007a 100644
--- a/package.json
+++ b/package.json
@@ -3,12 +3,13 @@
   "scripts": {
     "build": "pulp build --to dist/app.js",
     "watch": "pulp -w build --to dist/app.js",
-    "watch-fast": "webpack --entry ./entry.js --output-filename dist/app.js --progress --watch"
+    "watch-fast": "webpack --mode=development --entry ./entry.js --output-path ./dist --output-filename app.js --progress --watch"
   },
   "devDependencies": {
-    "pulp": "^12.0.1",
-    "purescript": "^0.11.6",
-    "purescript-psa": "^0.5.1",
-    "webpack": "^3.6.0"
+    "pulp": "^12.3.0",
+    "purescript": "^0.12.0",
+    "purescript-psa": "^0.7.2",
+    "webpack": "^4.16.2",
+    "webpack-cli": "^3.1.0"
   }
 }
diff --git a/src/Component.purs b/src/Component.purs
index b614349..3a37bd7 100644
--- a/src/Component.purs
+++ b/src/Component.purs
@@ -44,5 +44,5 @@ component =
   eval :: Query ~> H.ComponentDSL State Query Void m
   eval = case _ of
     ToggleState next -> do
-      H.modify (\state -> { on: not state.on })
+      _ <- H.modify (\state -> { on: not state.on })
       pure next
diff --git a/src/Main.purs b/src/Main.purs
index b20cea3..9e66943 100644
--- a/src/Main.purs
+++ b/src/Main.purs
@@ -1,13 +1,13 @@
 module Main where
 
 import Prelude
-import Control.Monad.Eff (Eff)
+import Effect (Effect)
 import Halogen.Aff as HA
 import Halogen.VDom.Driver (runUI)
 
 import Component (component)
 
-main :: Eff (HA.HalogenEffects ()) Unit
+main :: Effect Unit
 main = HA.runHalogenAff do
   body <- HA.awaitBody
   runUI component unit body