Merge pull request #11 from cryogenian/squashed

firefox decode slash

Author: jdegoes

src/Routing.purs

@@ -25,10 +25,15 @@ 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('#').splice(1).join('#');
+    };
+    var oldHash = "";    
+    handler("")(getHash())();
     window.addEventListener("hashchange", function(ev) {
-      handler(ev.oldURL)(ev.newURL)();
+      var newHash = getHash();
+      handler(oldHash)(newHash)();
+      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('#').splice(1).join('#');
 }
 """ :: forall e. Eff (dom :: DOM |e) String