Version bumps

Author: natefaubion

bower.json

@@ -24,26 +24,26 @@
     "package.json"
   ],
   "dependencies": {
-    "purescript-web-html": "#compiler/0.12",
-    "purescript-effect": "#compiler/0.12",
-    "purescript-either": "#compiler/0.12",
-    "purescript-globals": "#compiler/0.12",
-    "purescript-lists": "#compiler/0.12",
-    "purescript-maybe": "#compiler/0.12",
-    "purescript-prelude": "#compiler/0.12",
-    "purescript-semirings": "#compiler/0.12",
-    "purescript-tuples": "#compiler/0.12",
-    "purescript-validation": "#compiler/0.12",
-    "purescript-aff": "#compiler/0.12",
-    "purescript-control": "#compiler/0.12",
-    "purescript-console": "#compiler/0.12",
-    "purescript-integers": "#compiler/0.12",
-    "purescript-foldable-traversable": "#compiler/0.12"
+    "purescript-web-html": "^1.0.0",
+    "purescript-effect": "^2.0.0",
+    "purescript-either": "^4.0.0",
+    "purescript-globals": "^4.0.0",
+    "purescript-lists": "^5.0.0",
+    "purescript-maybe": "^4.0.0",
+    "purescript-prelude": "^4.0.0",
+    "purescript-semirings": "^5.0.0",
+    "purescript-tuples": "^5.0.0",
+    "purescript-validation": "^4.0.0",
+    "purescript-aff": "^5.0.0",
+    "purescript-control": "^4.0.0",
+    "purescript-console": "^4.1.0",
+    "purescript-integers": "^4.0.0",
+    "purescript-foldable-traversable": "^4.0.0"
   },
   "devDependencies": {
-    "purescript-console": "#compiler/0.12",
-    "purescript-assert": "#compiler/0.12",
-    "purescript-record": "#compiler/0.12",
-    "purescript-generics-rep": "#compiler/0.12"
+    "purescript-console": "^4.1.0",
+    "purescript-assert": "^4.0.0",
+    "purescript-record": "^1.0.0",
+    "purescript-generics-rep": "^6.0.0"
   }
 }

src/Routing.purs

@@ -6,13 +6,13 @@ module Routing
 import Prelude
 
 import Data.Either (Either)
-import Global (decodeURIComponent)
+import Global.Unsafe (unsafeDecodeURIComponent)
 import Routing.Match (Match, runMatch)
 import Routing.Parser (parse)
 
 -- | Runs a `Match` parser.
 match :: forall a. Match a -> String -> Either String a
-match = matchWith decodeURIComponent
+match = matchWith unsafeDecodeURIComponent
 
 -- | Runs a `Match` parser given a custom String decoder.
 matchWith :: forall a. (String -> String) -> Match a -> String -> Either String a

src/Routing/PushState.purs

@@ -74,8 +74,8 @@ makeInterface = do
     listen k = do
       fresh <- Ref.read freshRef
       Ref.write (fresh + 1) freshRef
-      Ref.modify (Map.insert fresh k) listenersRef
-      pure $ Ref.modify (Map.delete fresh) listenersRef
+      Ref.modify_ (Map.insert fresh k) listenersRef
+      pure $ Ref.modify_ (Map.delete fresh) listenersRef
 
     locationState = do
       loc <- DOM.window >>= Window.location
@@ -195,7 +195,7 @@ makeImmediate run = do
   nextTick ← Ref.new (Right 0)
   obsvNode ← Text.toNode <$> DOM.createTextNode "" document
   observer ← DOM.mutationObserver \_ _ → do
-    Ref.modify (either (Right <<< add 1) Right) nextTick
+    Ref.modify_ (either (Right <<< add 1) Right) nextTick
     run
   DOM.observe obsvNode { characterData: true } observer
   pure do

test/Test/Browser.purs

@@ -9,7 +9,7 @@ import Data.Maybe (Maybe(..), maybe)
 import Effect (Effect)
 import Effect.Exception (error, throwException)
 import Effect.Ref as Ref
-import Foreign (readInt, toForeign)
+import Foreign (readInt, unsafeToForeign)
 import Record as Rec
 import Routing.Hash (hashes, setHash)
 import Routing.Match (Match, lit)
@@ -131,24 +131,24 @@ runPushStateTests = withTest \{ assert } -> do
       Just old', new'
         | Rec.equal old' loc1 && Rec.equal new' loc2 -> do
             assert "Locations: init -> a" true
-            hist.pushState (toForeign 2) "/b#b"
+            hist.pushState (unsafeToForeign 2) "/b#b"
         | Rec.equal old' loc2 && Rec.equal new' loc3 -> do
             assert "Locations: a -> b" true
-            hist.pushState (toForeign 3) "/c/d"
+            hist.pushState (unsafeToForeign 3) "/c/d"
         | Rec.equal old' loc3 && Rec.equal new' loc4 -> do
             assert "Locations: b -> c/d" true
-            hist.pushState (toForeign 4) "e"
+            hist.pushState (unsafeToForeign 4) "e"
         | Rec.equal old' loc4 && Rec.equal new' loc5 -> do
             assert "Locations: c/d -> c/e" true
-            hist.pushState (toForeign 5) "?f"
+            hist.pushState (unsafeToForeign 5) "?f"
         | Rec.equal old' loc5 && Rec.equal new' loc6 -> do
             assert "Locations: c/e -> c/e?f" true
-            hist.pushState (toForeign 6) "/"
+            hist.pushState (unsafeToForeign 6) "/"
             done
       _, _ -> do
         done
         assert "Locations: fail" false
-  hist.pushState (toForeign 1) "/a?a"
+  hist.pushState (unsafeToForeign 1) "/a?a"
 
 main :: Effect Unit
 main = do