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

refactor --exclude to use Utility.Matcher

Browse source 
This should change no behavior, but opens the poissibility to use the
matcher for other sorts of limits on which files git-annex processes.
This commit is contained in:
Joey Hess 2011-09-18 17:47:49 -04:00
parent 38c0f3eaf8
commit 8a5a92480b
4 changed files with 65 additions and 24 deletions
Download patch file Download diff file Expand all files Collapse all files

4
GitAnnex.hs
View file

@ -19,6 +19,7 @@ import Types
import Types.TrustLevel
import qualified Annex
import qualified Remote
import qualified Limit
import qualified Command.Add
import qualified Command.Unannex
@ -97,7 +98,7 @@ options = commonOptions ++
"specify to where to transfer content"
, Option ['f'] ["from"] (ReqArg setfrom paramRemote)
"specify from where to transfer content"
, Option ['x'] ["exclude"] (ReqArg addexclude paramGlob)
, Option ['x'] ["exclude"] (ReqArg (Limit.exclude) paramGlob)
"skip files matching the glob pattern"
, Option ['N'] ["numcopies"] (ReqArg setnumcopies paramNumber)
"override default number of copies"
@ -113,7 +114,6 @@ options = commonOptions ++
where
setto v = Annex.changeState $ \s -> s { Annex.toremote = Just v }
setfrom v = Annex.changeState $ \s -> s { Annex.fromremote = Just v }
addexclude v = Annex.changeState $ \s -> s { Annex.exclude = v:Annex.exclude s }
setnumcopies v = Annex.changeState $ \s -> s {Annex.forcenumcopies = readMaybe v }
setkey v = Annex.changeState $ \s -> s { Annex.defaultkey = Just v }
setgitconfig :: String -> Annex ()