Merge pull request #39 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

@@ -19,11 +19,11 @@
     "package.json"
   ],
   "dependencies": {
-    "purescript-maps": "^2.0.0",
-    "purescript-tailrec": "^2.0.0"
+    "purescript-maps": "^3.0.0",
+    "purescript-tailrec": "^3.0.0"
   },
   "devDependencies": {
-    "purescript-assert": "^2.0.0",
-    "purescript-console": "^2.0.0"
+    "purescript-assert": "^3.0.0",
+    "purescript-console": "^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.1",
-    "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/Data/Set.purs

@@ -31,6 +31,7 @@ import Control.Monad.Rec.Class (Step(..), tailRecM2)
 import Control.Monad.ST (ST)
 
 import Data.Array as Array
+import Data.Eq (class Eq1)
 import Data.Array.ST (STArray, emptySTArray, runSTArray, pushSTArray)
 import Data.Foldable (class Foldable, foldMap, foldl, foldr)
 import Data.List (List)
@@ -45,7 +46,7 @@ import Partial.Unsafe (unsafePartial)
 data Set a = Set (M.Map a Unit)
 
 -- | Create a set from a foldable structure.
-fromFoldable :: forall f a. (Foldable f, Ord a) => f a -> Set a
+fromFoldable :: forall f a. Foldable f => Ord a => f a -> Set a
 fromFoldable = foldl (\m a -> insert a m) empty
 
 -- | Convert a set to an unfoldable structure.
@@ -58,6 +59,9 @@ toList (Set m) = M.keys m
 instance eqSet :: Eq a => Eq (Set a) where
   eq (Set m1) (Set m2) = m1 == m2
 
+instance eq1Set :: Eq1 Set where
+  eq1 = eq
+
 instance showSet :: Show a => Show (Set a) where
   show s = "(fromFoldable " <> show (toList s) <> ")"
 
@@ -124,7 +128,7 @@ union :: forall a. Ord a => Set a -> Set a -> Set a
 union (Set m1) (Set m2) = Set (m1 `M.union` m2)
 
 -- | Form the union of a collection of sets
-unions :: forall f a. (Foldable f, Ord a) => f (Set a) -> Set a
+unions :: forall f a. Foldable f => Ord a => f (Set a) -> Set a
 unions = foldl union empty
 
 -- | Form the set difference