Updates for 0.12

Author: garyb

.gitignore

@@ -4,3 +4,4 @@
 /bower_components/
 /node_modules/
 /output/
+package-lock.json

bower.json

@@ -19,10 +19,10 @@
     "package.json"
   ],
   "dependencies": {
-    "purescript-sets": "^3.0.0",
-    "purescript-catenable-lists": "^4.0.0"
+    "purescript-ordered-collections": "^1.0.0",
+    "purescript-catenable-lists": "^5.0.0"
   },
   "devDependencies": {
-    "purescript-console": "^3.0.0"
+    "purescript-console": "^4.1.0"
   }
 }

package.json

@@ -6,8 +6,8 @@
     "test": "pulp test"
   },
   "devDependencies": {
-    "pulp": "^11.0.0",
-    "purescript-psa": "^0.5.1",
-    "rimraf": "^2.6.1"
+    "pulp": "^12.2.0",
+    "purescript-psa": "^0.6.0",
+    "rimraf": "^2.6.2"
   }
 }

src/Data/Graph.purs

@@ -20,7 +20,6 @@ import Data.List as L
 import Data.Map (Map)
 import Data.Map as M
 import Data.Maybe (Maybe(..), maybe)
-import Data.Monoid (mempty)
 import Data.Tuple (Tuple(..), fst, snd)
 
 -- | A graph with vertices of type `v`.

test/Main.purs

@@ -1,14 +1,15 @@
 module Test.Main where
 
 import Prelude
-import Control.Monad.Eff (foreachE, Eff)
-import Control.Monad.Eff.Console (CONSOLE, logShow)
+
+import Effect (Effect, foreachE)
+import Effect.Console (logShow)
 import Data.Graph (unfoldGraph, topologicalSort)
 import Data.List (toUnfoldable, range)
 
-main :: Eff (console :: CONSOLE) Unit
+main :: Effect Unit
 main = do
   let double x | x * 2 < 100000 = [x * 2]
                | otherwise      = []
-      graph = unfoldGraph (range 1 100000) id double
+      graph = unfoldGraph (range 1 100000) identity double
   foreachE (toUnfoldable (topologicalSort graph)) logShow