mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

Fix bug in --exclude introduced in 0.20110516.

Browse source
This commit is contained in:
Joey Hess 2011-05-27 20:20:20 -04:00
parent 224977900d
commit 001edb008a
2 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Command.hs
View file

@ -191,7 +191,7 @@ filterFiles l = do
else return $ filter (notExcluded $ wildsRegex exclude) l'
where
notState f = not $ stateDir `isPrefixOf` f
notExcluded r f = isJust $ match r f []
notExcluded r f = isNothing $ match r f []
wildsRegex :: [String] -> Regex
wildsRegex ws = compile regex []