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

tweak

Browse source
This commit is contained in:
Joey Hess 2011-01-30 00:08:17 -04:00
parent 6d3df8a083
commit 53677d7647
1 changed files with 4 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
Command.hs
View file

@ -183,17 +183,16 @@ filterFiles l = do
exclude <- Annex.getState Annex.exclude
if null exclude
then return l'
else do
let regexp = compile (wildsRegex exclude) []
return $ filter (notExcluded regexp) l'
else return $ filter (notExcluded $ wildsRegex exclude) l'
where
notState f = not $ stateDir `isPrefixOf` f
notExcluded r f = case match r f [] of
Nothing -> True
Just _ -> False
wildsRegex :: [String] -> String
wildsRegex ws = "^(" ++ wildsRegex' ws "" ++ ")"
wildsRegex :: [String] -> Regex
wildsRegex ws = compile regex []
where regex = "^(" ++ wildsRegex' ws "" ++ ")"
wildsRegex' :: [String] -> String -> String
wildsRegex' [] c = c
wildsRegex' (w:ws) "" = wildsRegex' ws (wildToRegex w)