upgrade to ps 0.12

Author: shmish111

bower.json

@@ -27,10 +27,23 @@
     "package.json"
   ],
   "dependencies": {
-    "purescript-ace": "^4.0.0",
-    "purescript-halogen": "^3.1.1",
-    "purescript-now": "^3.0.0",
-    "purescript-random": "^3.0.0",
-    "purescript-refs": "^3.0.0"
+    "purescript-ace": "^7.0.0",
+    "purescript-halogen": "4.0.0",
+    "purescript-now": "^4.0.0",
+    "purescript-random": "^4.0.0",
+    "purescript-refs": "^4.1.0",
+    "purescript-aff": "^5.1.1",
+    "purescript-foreign-object": "^2.0.1",
+    "purescript-prelude": "^4.1.1"
+  },
+  "resolutions": {
+    "purescript-foreign-object": "^2.0.1",
+    "purescript-typelevel-prelude": "^4.0.0",
+    "purescript-web-html": "^2.0.0",
+    "purescript-web-uievents": "^2.0.0",
+    "purescript-web-file": "^2.0.0",
+    "purescript-web-dom": "^2.0.0",
+    "purescript-web-storage": "^3.0.0",
+    "purescript-web-events": "^2.0.0"
   }
 }

example/bower.json

@@ -1,8 +1,33 @@
 {
   "name": "purescript-ace-halogen-example",
   "private": true,
+  "ignore": [
+    "**/.*",
+    "bower_components",
+    "node_modules",
+    "example",
+    "output",
+    "test",
+    "bower.json",
+    "package.json"
+  ],
   "dependencies": {
     "purescript-ace-halogen": "*",
-    "ace-builds": "^1.2.2"
+    "purescript-prelude": "^4.1.1",
+    "purescript-halogen": "4.0.0",
+    "purescript-ace": "^7.0.0",
+    "purescript-aff": "^5.1.1",
+    "purescript-random": "^4.0.0",
+    "ace-builds": "^1.4.4"
+  },
+  "resolutions": {
+    "purescript-foreign-object": "^2.0.1",
+    "purescript-typelevel-prelude": "^4.0.0",
+    "purescript-web-html": "^2.0.0",
+    "purescript-web-uievents": "^2.0.0",
+    "purescript-web-file": "^2.0.0",
+    "purescript-web-dom": "^2.0.0",
+    "purescript-web-storage": "^3.0.0",
+    "purescript-web-events": "^2.0.0"
   }
 }

example/package.json

@@ -5,8 +5,9 @@
     "build": "pulp browserify --optimise --to example.js"
   },
   "devDependencies": {
-    "pulp": "^9.0.1",
-    "purescript": "^0.10.1",
-    "rimraf": "^2.5.4"
+    "bower": "^1.8.4",
+    "pulp": "^12.4.2",
+    "purescript": "^0.12.5",
+    "rimraf": "^2.6.2"
   }
 }

example/src/Main.purs

@@ -2,11 +2,9 @@ module Main where
 
 import Prelude
 
-import Control.Monad.Aff (Aff)
-import Control.Monad.Eff (Eff)
-import Control.Monad.Eff.Class (liftEff)
-import Control.Monad.Eff.Random (RANDOM)
-import Control.Monad.Eff.Now (NOW)
+import Effect (Effect)
+import Effect.Aff (Aff)
+import Effect.Class (liftEffect)
 
 import Data.Maybe (Maybe(..))
 
@@ -19,7 +17,7 @@ import Halogen.VDom.Driver (runUI)
 import Ace.Editor as Editor
 import Ace.EditSession as Session
 import Ace.Halogen.Component (AceQuery, AceMessage(..), aceComponent)
-import Ace.Types (ACE, Editor)
+import Ace.Types (Editor)
 
 data Query a
   = HandleMessage AceMessage a
@@ -35,13 +33,10 @@ initialState =
 
 type AceSlot = Unit
 
-type MainEffects = HA.HalogenEffects (random ∷ RANDOM, now ∷ NOW, ace ∷ ACE)
-type MainAff = Aff MainEffects
+type MainHtml = H.ParentHTML Query AceQuery AceSlot Aff
+type MainDSL = H.ParentDSL State Query AceQuery AceSlot Void Aff
 
-type MainHtml = H.ParentHTML Query AceQuery AceSlot MainAff
-type MainDSL = H.ParentDSL State Query AceQuery AceSlot Void MainAff
-
-ui ∷ H.Component HH.HTML Query Unit Void MainAff
+ui ∷ H.Component HH.HTML Query Unit Void Aff
 ui =
   H.parentComponent
     { initialState: const initialState
@@ -58,11 +53,11 @@ ui =
       , HH.div_ [ HH.text state.text ]
       ]
 
-  component :: State → H.Component HH.HTML AceQuery Unit AceMessage MainAff
+  component :: State → H.Component HH.HTML AceQuery Unit AceMessage Aff
   component state = aceComponent (initEditor state) Nothing
 
-  initEditor ∷ State → Editor → MainAff Unit
-  initEditor state editor = liftEff $ do
+  initEditor ∷ State → Editor → Aff Unit
+  initEditor state editor = liftEffect $ do
     session ← Editor.getSession editor
     Session.setMode "ace/mode/yaml" session
     _ ← Editor.setValue state.text Nothing editor
@@ -71,8 +66,8 @@ ui =
   eval ∷ Query ~> MainDSL
   eval = case _ of
     HandleMessage (TextChanged text) next → do
-      H.modify (_ { text = text })
+      _ <- H.modify (_ { text = text })
       pure next
 
-main ∷ Eff MainEffects Unit
+main ∷ Effect Unit
 main = HA.runHalogenAff (runUI ui unit =<< HA.awaitBody)

package.json

@@ -3,13 +3,15 @@
   "scripts": {
     "clean": "rimraf output && rimraf .pulp-cache",
     "build": "eslint src && pulp build -- --censor-lib --strict",
+    "purs:ide": "purs ide server --log-level=debug 'bower_components/purescript-*/src/**/*.purs' 'src/**/*.purs'",
     "example": "bower link && cd example && bower link purescript-ace-halogen && npm run -s build"
   },
   "devDependencies": {
+    "bower": "^1.8.4",
     "eslint": "^4.16.0",
-    "pulp": "^12.0.1",
-    "purescript": "^0.11.7",
-    "purescript-psa": "^0.6.0",
+    "pulp": "^12.4.2",
+    "purescript": "^0.12.5",
+    "purescript-psa": "^0.7.2",
     "rimraf": "^2.6.2"
   }
 }