summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndrew Cady <d@jerkface.net>2017-06-11 16:18:38 -0400
committerAndrew Cady <d@jerkface.net>2017-06-11 16:18:38 -0400
commit24636431e7eb0d32bc6a1b155a10e7f873a6d8c2 (patch)
tree0308b9bc49660837a3abcab5f52fcfd7adb38739
parent05ff2589616685ce00271e96865c99de0edc8c99 (diff)
provision check is now optional
-rw-r--r--acme-certify.hs8
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
65Just defaultTerms = parseAbsoluteURI "https://letsencrypt.org/documents/LE-SA-v1.0.1-July-27-2015.pdf" 65Just defaultTerms = parseAbsoluteURI "https://letsencrypt.org/documents/LE-SA-v1.0.1-July-27-2015.pdf"
66 66
67main :: IO () 67main :: IO ()
68main = customExecParser (prefs showHelpOnError) (info opts desc) >>= run 68main = 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" <>