diff options
-rw-r--r-- | acme-certify.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/acme-certify.hs b/acme-certify.hs index a9bf3fa..989940b 100644 --- a/acme-certify.hs +++ b/acme-certify.hs | |||
@@ -115,7 +115,7 @@ data UpdateOpts = UpdateOpts { | |||
115 | updateHosts :: [String], | 115 | updateHosts :: [String], |
116 | updateStaging :: Bool, | 116 | updateStaging :: Bool, |
117 | updateDryRun :: Bool, | 117 | updateDryRun :: Bool, |
118 | updateDoPrivisionCheck :: Bool, | 118 | updateDoProvisionCheck :: Bool, |
119 | updateTryVHosts :: [String] | 119 | updateTryVHosts :: [String] |
120 | } | 120 | } |
121 | 121 | ||
@@ -295,7 +295,7 @@ runUpdate UpdateOpts { .. } = do | |||
295 | 295 | ||
296 | (needToFetch spec >>=) $ leftMapM_ $ \reason -> do | 296 | (needToFetch spec >>=) $ leftMapM_ $ \reason -> do |
297 | putStrLn $ concat ["New certificate needed (for domain ", domainToString domain, "): ", show reason] | 297 | putStrLn $ concat ["New certificate needed (for domain ", domainToString domain, "): ", show reason] |
298 | when updateDoPrivisionCheck $ | 298 | when updateDoProvisionCheck $ |
299 | forM_ (filter (wantProvisionCheck . fst) $ csDomains spec) $ \csd -> do | 299 | forM_ (filter (wantProvisionCheck . fst) $ csDomains spec) $ \csd -> do |
300 | putStrLn $ "Provision check: " ++ (domainToString . fst $ csd) | 300 | putStrLn $ "Provision check: " ++ (domainToString . fst $ csd) |
301 | can <- uncurry canProvision csd | 301 | can <- uncurry canProvision csd |