firefox decode slash

Author: cryogenian

src/Routing.purs

@@ -25,10 +25,13 @@ foreign import decodeURIComponent :: String -> String
 foreign import hashChanged """
 function hashChanged(handler) {
   return function() {
-    var currentHash = document.location.hash;
-    handler("")(currentHash)();
+    var getHash = function() {return document.location.href.split('#')[1] || '';};
+    window['__oldHash'] = "";
+    handler("")(getHash())();
     window.addEventListener("hashchange", function(ev) {
-      handler(ev.oldURL)(ev.newURL)();
+      var newHash = getHash();
+      handler(window['__oldHash'])(newHash)();
+      window['__oldHash'] = newHash;
     });
   };
 }

src/Routing/Hash.purs

@@ -6,14 +6,15 @@ import DOM
 foreign import setHash """
 function setHash(hash) {
   return function() {
-    document.location.hash = hash;
+    var uri = document.location.href.split('#')[0];
+    document.location.href = uri + '#' + hash;
   };
 }
 """ :: forall e. String -> Eff (dom :: DOM |e) Unit
 
 foreign import getHash """
 function getHash() {
-  return document.location.hash.replace(/^[^#]*#/g, "");
+  return document.location.href.split('#')[1] || "";
 }
 """ :: forall e. Eff (dom :: DOM |e) String