Merge pull request #17 from purescript/ps-0.11

Update for PureScript 0.11

Author: garyb

.travis.yml

@@ -1,7 +1,7 @@
 language: node_js
 dist: trusty
 sudo: required
-node_js: 6
+node_js: stable
 env:
   - PATH=$HOME/purescript:$PATH
 install:

bower.json

@@ -16,12 +16,12 @@
     "package.json"
   ],
   "dependencies": {
-    "purescript-transformers": "^2.0.0",
-    "purescript-refs": "^2.0.0",
-    "purescript-functors": "^1.0.0"
+    "purescript-transformers": "^3.0.0",
+    "purescript-refs": "^3.0.0",
+    "purescript-functors": "^2.0.0"
   },
   "devDependencies": {
-    "purescript-console": "^2.0.0",
-    "purescript-functions": "^2.0.0"
+    "purescript-console": "^3.0.0",
+    "purescript-functions": "^3.0.0"
   }
 }

package.json

@@ -2,12 +2,12 @@
   "private": true,
   "scripts": {
     "clean": "rimraf output && rimraf .pulp-cache",
-    "build": "pulp build --censor-lib --strict",
+    "build": "pulp build -- --censor-lib --strict",
     "test": "pulp test"
   },
   "devDependencies": {
-    "pulp": "^9.0.0",
-    "purescript-psa": "^0.3.9",
-    "rimraf": "^2.5.0"
+    "pulp": "^10.0.4",
+    "purescript-psa": "^0.5.0-rc.1",
+    "rimraf": "^2.6.1"
   }
 }

src/Control/Parallel.purs

@@ -16,7 +16,8 @@ import Data.Traversable (class Traversable, traverse)
 -- | Traverse a collection in parallel.
 parTraverse
   :: forall f m t a b
-   . (Parallel f m, Traversable t)
+   . Parallel f m
+  => Traversable t
   => (a -> m b)
   -> t a
   -> m (t b)
@@ -25,22 +26,25 @@ parTraverse f = sequential <<< traverse (parallel <<< f)
 -- | Traverse a collection in parallel, discarding any results.
 parTraverse_
   :: forall f m t a b
-   . (Parallel f m, Foldable t)
+   . Parallel f m
+  => Foldable t
   => (a -> m b)
   -> t a
   -> m Unit
 parTraverse_ f = sequential <<< traverse_ (parallel <<< f)
 
 parSequence
   :: forall a t m f
-   . (Parallel f m, Traversable t)
+   . Parallel f m
+  => Traversable t
   => t (m a)
   -> m (t a)
 parSequence = parTraverse id
 
 parSequence_
   :: forall a t m f
-   . (Parallel f m, Traversable t)
+   . Parallel f m
+  => Foldable t
   => t (m a)
   -> m Unit
 parSequence_ = parTraverse_ id

test/Main.purs

@@ -3,7 +3,7 @@ module Test.Main where
 import Prelude (Unit, (<<<))
 
 import Control.Monad.Cont.Trans (ContT(..), runContT)
-import Control.Monad.Eff (Eff)
+import Control.Monad.Eff (Eff, kind Effect)
 import Control.Monad.Eff.Console (CONSOLE, logShow)
 import Control.Parallel (parTraverse)
 
@@ -12,7 +12,7 @@ newtype Request = Request
   , path :: String
   }
 
-foreign import data HTTP :: !
+foreign import data HTTP :: Effect
 
 foreign import getImpl
   :: forall eff