diff --git a/.gitignore b/.gitignore
index 307f9c0..b215c44 100644
--- a/.gitignore
+++ b/.gitignore
@@ -4,3 +4,4 @@
 /bower_components/
 /node_modules/
 /output/
+package-lock.json
diff --git a/bower.json b/bower.json
index 5ff2058..b0be8df 100644
--- a/bower.json
+++ b/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"
   }
 }
diff --git a/package.json b/package.json
index f1deb35..5a4bff0 100644
--- a/package.json
+++ b/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"
   }
 }
diff --git a/src/Data/Graph.purs b/src/Data/Graph.purs
index c2f8abf..0e79795 100644
--- a/src/Data/Graph.purs
+++ b/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`.
diff --git a/test/Main.purs b/test/Main.purs
index e0b8381..16c9c16 100644
--- a/test/Main.purs
+++ b/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