diff options
author | Andrew Cady <d@jerkface.net> | 2017-06-11 16:18:38 -0400 |
---|---|---|
committer | Andrew Cady <d@jerkface.net> | 2017-06-11 16:18:38 -0400 |
commit | 24636431e7eb0d32bc6a1b155a10e7f873a6d8c2 (patch) | |
tree | 0308b9bc49660837a3abcab5f52fcfd7adb38739 | |
parent | 05ff2589616685ce00271e96865c99de0edc8c99 (diff) |
provision check is now optional
-rw-r--r-- | acme-certify.hs | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/acme-certify.hs b/acme-certify.hs index c7a8279..677a291 100644 --- a/acme-certify.hs +++ b/acme-certify.hs | |||
@@ -65,7 +65,7 @@ Just stagingDirectoryUrl = parseAbsoluteURI "https://acme-staging.api.letsencryp | |||
65 | Just defaultTerms = parseAbsoluteURI "https://letsencrypt.org/documents/LE-SA-v1.0.1-July-27-2015.pdf" | 65 | Just defaultTerms = parseAbsoluteURI "https://letsencrypt.org/documents/LE-SA-v1.0.1-July-27-2015.pdf" |
66 | 66 | ||
67 | main :: IO () | 67 | main :: IO () |
68 | main = customExecParser (prefs showHelpOnError) (info opts desc) >>= run | 68 | main = customExecParser (prefs showHelpOnEmpty) (info opts desc) >>= run |
69 | where | 69 | where |
70 | opts :: Parser Options | 70 | opts :: Parser Options |
71 | opts = Options <$> parseCommand | 71 | opts = Options <$> parseCommand |
@@ -125,7 +125,7 @@ updateOpts = fmap Update $ | |||
125 | (strOption | 125 | (strOption |
126 | (long "config" <> | 126 | (long "config" <> |
127 | metavar "FILENAME" <> | 127 | metavar "FILENAME" <> |
128 | help "location of YAML configuration file")) | 128 | help "Alternative location of YAML configuration file")) |
129 | <*> many (argument str (metavar "HOSTS")) | 129 | <*> many (argument str (metavar "HOSTS")) |
130 | <*> stagingSwitch | 130 | <*> stagingSwitch |
131 | <*> switch | 131 | <*> switch |
@@ -134,7 +134,9 @@ updateOpts = fmap Update $ | |||
134 | [ "Do not fetch any certificates; only tests" | 134 | [ "Do not fetch any certificates; only tests" |
135 | , "configuration file and http provisioning" | 135 | , "configuration file and http provisioning" |
136 | ])) | 136 | ])) |
137 | <*> pure True | 137 | <*> switch (long "provision-check" <> help |
138 | (unwords ["Locally check HTTP provisioning", | ||
139 | "before requesting certificates"])) | ||
138 | <*> many | 140 | <*> many |
139 | (strOption | 141 | (strOption |
140 | (long "try" <> | 142 | (long "try" <> |