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

Fixes #5
This commit is contained in:
Georges Dubus 2014-12-28 22:56:27 +01:00
parent d5f8dfac0b
commit b1120a3253
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