Fixed a typo that broke the "**" pattern.

Fixes #5
2014-12-28 22:56:27 +01:00 · 2014-12-28 22:56:27 +01:00 · 45f8f1928a
commit 45f8f1928a
parent 843e426a2e
1 changed files with 1 additions and 1 deletions
--- a/System/FilePath/GlobPattern.hs
+++ b/System/FilePath/GlobPattern.hs
@ -152,7 +152,7 @@ matchTerms (MatchAny:ts) cs = matchAny cs >>= matchTerms ts
    where matchAny [] = fail "no match"
          matchAny cs' = case matchTerms ts cs' of
                          Nothing -> matchAny (tail cs')
-                          _ -> return cs
+                          _ -> return cs'
 matchTerms [MatchDir] cs | pathSeparator `elem` cs = fail "path separator"
                         | otherwise = return ()
 matchTerms (MatchDir:ts) cs = matchDir cs >>= matchTerms ts