summaryrefslogtreecommitdiff
path: root/acme-certify.hs
diff options
context:
space:
mode:
Diffstat (limited to 'acme-certify.hs')
-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" <>