Merge pull request #7 from madjar/master

Fixed a typo that broke the "**" pattern.
This commit is contained in:
Bryan O'Sullivan 2015-01-20 15:20:18 -08:00
commit 4033c45f0d
1 changed files with 1 additions and 1 deletions

View File

@ -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