File tree Expand file tree Collapse file tree 5 files changed +19
-8
lines changed Expand file tree Collapse file tree 5 files changed +19
-8
lines changed Original file line number Diff line number Diff line change @@ -60,6 +60,7 @@ walletPassphraseCommon =
60
60
" ANTI_WALLET_PASSPHRASE"
61
61
" PASSPHRASE"
62
62
" ask-wallet-passphrase"
63
+ " walletPassphrase"
63
64
64
65
walletFileOption :: Parser FilePath
65
66
walletFileOption =
Original file line number Diff line number Diff line change @@ -6,6 +6,7 @@ import Data.Functor (($>))
6
6
import OptEnvConf
7
7
( Alternative ((<|>) )
8
8
, Parser
9
+ , conf
9
10
, env
10
11
, help
11
12
, long
@@ -35,8 +36,10 @@ secretsParser
35
36
-- ^ Metavar string
36
37
-> String
37
38
-- ^ Long option name
39
+ -> String
40
+ -- ^ conf json field name
38
41
-> Parser String
39
- secretsParser prompt helpString envString metaString longString =
42
+ secretsParser prompt helpString envString metaString longString jsonField =
40
43
mapIO id
41
44
$ setting
42
45
[ help helpString
@@ -50,12 +53,14 @@ secretsParser prompt helpString envString metaString longString =
50
53
, long longString
51
54
, switch $ queryConsole prompt
52
55
]
53
- <|> setting
54
- [ env envString
55
- , metavar metaString
56
- , help prompt
57
- , reader $ fmap pure str
58
- ]
56
+ <|> pure
57
+ <$> setting
58
+ [ env envString
59
+ , metavar metaString
60
+ , help prompt
61
+ , reader str
62
+ , conf jsonField
63
+ ]
59
64
60
65
queryConsole :: String -> IO String
61
66
queryConsole prompt = runInputT defaultSettings $ do
Original file line number Diff line number Diff line change @@ -71,6 +71,7 @@ githubAuthOption =
71
71
" ANTI_GITHUB_PAT"
72
72
" GITHUB_PAT"
73
73
" ask-github-pat"
74
+ " githubPAT"
74
75
75
76
commandParser :: Parser (Box Command )
76
77
commandParser =
Original file line number Diff line number Diff line change @@ -116,6 +116,7 @@ emailResultsOptions =
116
116
" ANTI_AGENT_EMAIL_PASSWORD"
117
117
" EMAIL_PASSWORD"
118
118
" ask-agent-email-password"
119
+ " agentEmailPassword"
119
120
)
120
121
<*> testRunIdOption " check results for"
121
122
<*> setting
@@ -153,6 +154,7 @@ slackOption =
153
154
" ANTI_SLACK_WEBHOOK"
154
155
" SLACK_WEBHOOK"
155
156
" ask-slack-webhook"
157
+ " slackWebhook"
156
158
157
159
registryOption :: Parser Registry
158
160
registryOption =
@@ -174,6 +176,7 @@ antithesisAuthOption =
174
176
" ANTI_ANTITHESIS_PASSWORD"
175
177
" PASSWORD"
176
178
" ask-antithesis-password"
179
+ " antithesisPassword"
177
180
where
178
181
cardanoWithPwd pwd =
179
182
AntithesisAuth {username = " cardano" , password = pwd}
Original file line number Diff line number Diff line change @@ -171,7 +171,8 @@ keyPasswordOption =
171
171
" The passphrase for the SSH private key"
172
172
" ANTI_SSH_PASSWORD"
173
173
" PASSWORD"
174
- " ask-ssh-passphrase"
174
+ " ask-ssh-password"
175
+ " sshPassword"
175
176
176
177
requestTestOptions
177
178
:: Parser
You can’t perform that action at this time.
0 commit comments