Use indexl

Author: natefaubion

bower.json

@@ -38,7 +38,8 @@
     "purescript-aff": "^4.0.0",
     "purescript-control": "^3.0.0",
     "purescript-console": "^3.0.0",
-    "purescript-integers": "^3.0.0"
+    "purescript-integers": "^3.0.0",
+    "purescript-foldable-traversable": "^3.7.1"
   },
   "devDependencies": {
     "purescript-console": "^3.0.0",

src/Routing/Hash.purs

@@ -20,7 +20,7 @@ import DOM.HTML.Event.EventTypes (hashchange)
 import DOM.HTML.Location as L
 import DOM.HTML.Types (windowToEventTarget)
 import DOM.HTML.Window (location)
-import Data.Foldable (class Foldable, find)
+import Data.Foldable (class Foldable, indexl)
 import Data.Maybe (Maybe(..), fromMaybe, maybe)
 import Data.String (Pattern(..), stripPrefix)
 import Routing (RoutingEffects, match, matchWith)
@@ -87,5 +87,5 @@ matchesWith parser cb = foldHashes go (go Nothing)
   where
   go a =
     maybe (pure a) (\b -> Just b <$ cb a b)
-      <<< find (const true)
+      <<< indexl 0
       <<< parser