summaryrefslogtreecommitdiff
path: root/GitAnnex.hs
diff options
context:
space:
mode:
Diffstat (limited to 'GitAnnex.hs')
-rw-r--r--GitAnnex.hs4
1 files changed, 3 insertions, 1 deletions
diff --git a/GitAnnex.hs b/GitAnnex.hs
index 67aead173..c6fc5210f 100644
--- a/GitAnnex.hs
+++ b/GitAnnex.hs
@@ -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