From 51d5e6b4c716847dc544fa2d56bbe4567f1bfaf4 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 25 Sep 2012 16:48:24 -0400 Subject: New --time-limit option, makes long git-annex commands stop after a specified amount of time. --- GitAnnex.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'GitAnnex.hs') 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 -- cgit v1.2.3