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

New --time-limit option, makes long git-annex commands stop after a specified amount of time.

Browse source
This commit is contained in:
Joey Hess 2012-09-25 16:48:24 -04:00
parent 995b04d36f
commit f0e0d17440
6 changed files with 63 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

4
GitAnnex.hs
View file

@ -141,9 +141,11 @@ options = Option.common ++
"skip files with fewer copies"
, Option ['B'] ["inbackend"] (ReqArg Limit.addInBackend paramName)
"skip files not using a key-value backend"
, Option ['T'] ["time-limit"] (ReqArg Limit.addTimeLimit paramTime)
"stop after the specified amount of time"
] ++ Option.matcher
where
setnumcopies v = Annex.changeState $ \s -> s {Annex.forcenumcopies = readish v }
setnumcopies v = Annex.changeState $ \s -> s { Annex.forcenumcopies = readish v }
setgitconfig :: String -> Annex ()
setgitconfig v = do
newg <- inRepo $ Git.Config.store v