rhi/filemanip
1
0
Fork 0
Code Issues Pull requests Releases Activity

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

Browse source 
Fixes #5
This commit is contained in:
Georges Dubus 2014-12-28 22:56:27 +01:00
parent 843e426a2e
commit 45f8f1928a
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
System/FilePath/GlobPattern.hs
View file

@ -152,7 +152,7 @@ matchTerms (MatchAny:ts) cs = matchAny cs >>= matchTerms ts
where matchAny [] = fail "no match" where matchAny [] = fail "no match"
matchAny cs' = case matchTerms ts cs' of matchAny cs' = case matchTerms ts cs' of
Nothing -> matchAny (tail cs') Nothing -> matchAny (tail cs')
_ -> return cs _ -> return cs'
matchTerms [MatchDir] cs | pathSeparator `elem` cs = fail "path separator" matchTerms [MatchDir] cs | pathSeparator `elem` cs = fail "path separator"
| otherwise = return () | otherwise = return ()
matchTerms (MatchDir:ts) cs = matchDir cs >>= matchTerms ts matchTerms (MatchDir:ts) cs = matchDir cs >>= matchTerms ts