diff options
Diffstat (limited to 'GitAnnex.hs')
-rw-r--r-- | GitAnnex.hs | 11 |
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 ..]" |