removed debug.foreign, added comment

Author: cryogenian

src/Routing.purs

@@ -38,6 +38,9 @@ hashes cb =
   where dropHash h = R.replace (R.regex "^[^#]*#" R.noFlags) "" h
 
 
+-- | Stream of hash changed, callback called when new hash can be matched
+-- | First argument of callback is `Just a` when old hash can be matched
+-- | and `Nothing` when it can't.
 matches :: forall e a. Match a -> (Maybe a -> a -> Eff e Unit) -> Eff e Unit
 matches = matches' decodeURIComponent
 

src/Routing/Match.purs

@@ -21,8 +21,6 @@ import Routing.Types
 import Routing.Match.Class
 import Routing.Match.Error
 
-import Debug.Foreign
-
 newtype Match a = Match (Route -> V (Free MatchError) (Tuple Route a)) 
 
 instance matchMatchClass :: MatchClass Match where