aboutsummaryrefslogtreecommitdiff
path: root/GitAnnex.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2013-03-12 05:05:33 -0400
committerGravatar Joey Hess <joey@kitenet.net>2013-03-12 05:05:33 -0400
commitb7e2169d6d93440e2d50581d2a373db121e9b34c (patch)
tree3873ebad3515d21334e8a8521fb0011bebc1a59b /GitAnnex.hs
parent09aefea8f1853be512729657324aae7a7c03d421 (diff)
linelength
Diffstat (limited to 'GitAnnex.hs')
-rw-r--r--GitAnnex.hs11
1 files changed, 7 insertions, 4 deletions
diff --git a/GitAnnex.hs b/GitAnnex.hs
index 0b4a7f8d9..78b374358 100644
--- a/GitAnnex.hs
+++ b/GitAnnex.hs
@@ -147,11 +147,11 @@ options :: [Option]
options = Option.common ++
[ Option ['N'] ["numcopies"] (ReqArg setnumcopies paramNumber)
"override default number of copies"
- , Option [] ["trust"] (ReqArg (Remote.forceTrust Trusted) paramRemote)
+ , Option [] ["trust"] (trustArg Trusted)
"override trust setting"
- , Option [] ["semitrust"] (ReqArg (Remote.forceTrust SemiTrusted) paramRemote)
+ , Option [] ["semitrust"] (trustArg SemiTrusted)
"override trust setting back to default"
- , Option [] ["untrust"] (ReqArg (Remote.forceTrust UnTrusted) paramRemote)
+ , Option [] ["untrust"] (trustArg UnTrusted)
"override trust setting to untrusted"
, Option ['c'] ["config"] (ReqArg setgitconfig "NAME=VALUE")
"override git configuration setting"
@@ -173,7 +173,8 @@ options = Option.common ++
"skip files smaller than a size"
, Option ['T'] ["time-limit"] (ReqArg Limit.addTimeLimit paramTime)
"stop after the specified amount of time"
- , Option [] ["trust-glacier"] (NoArg (Annex.setFlag "trustglacier")) "Trust Amazon Glacier inventory"
+ , Option [] ["trust-glacier"] (NoArg (Annex.setFlag "trustglacier"))
+ "Trust Amazon Glacier inventory"
] ++ Option.matcher
where
setnumcopies v = maybe noop
@@ -181,6 +182,8 @@ options = Option.common ++
(readish v)
setgitconfig v = Annex.changeGitRepo =<< inRepo (Git.Config.store v)
+ trustArg t = ReqArg (Remote.forceTrust t) paramRemote
+
header :: String
header = "Usage: git-annex command [option ..]"