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

Add --include, which is the same as --not --exclude.

Browse source
This commit is contained in:
Joey Hess 2011-12-22 13:53:06 -04:00
parent 30cf6ce81c
commit 6bffe509d7
6 changed files with 28 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

10
Limit.hs
View file

@ -55,10 +55,16 @@ addLimit :: (FilePath -> Annex Bool) -> Annex ()
addLimit = add . Utility.Matcher.Operation
{- Add a limit to skip files that do not match the glob. -}
addInclude :: String -> Annex ()
addInclude glob = addLimit $ return . matchglob glob
{- Add a limit to skip files that match the glob. -}
addExclude :: String -> Annex ()
addExclude glob = addLimit $ return . notExcluded
addExclude glob = addLimit $ return . not . matchglob glob
matchglob :: String -> FilePath -> Bool
matchglob glob f = isJust $ match cregex f []
where
notExcluded f = isNothing $ match cregex f []
cregex = compile regex []
regex = '^':wildToRegex glob