1 files changed, 1 insertions, 3 deletions

diff --git a/acme-certify.hs b/acme-certify.hs
index c0116ea..0ac7a7b 100644
--- a/acme-certify.hs
+++ b/acme-certify.hs
@@ -140,13 +140,11 @@ go CmdOpts { .. } = do
 go' :: URI -> URI -> Maybe EmailAddress -> X509 -> AcmeCertRequest -> IO (Either String ())
 go' directoryUrl terms email issuerCert acr@AcmeCertRequest{..} = do
   let domainKeyFile = acrCertificateDir </> "rsa.key"
-  let provision     = dispatchProvisioner acrDomains
 
   Just domainKeys <- getOrCreateKeys domainKeyFile
   dh <- saveDhParams acr
 
-  certReq <- genReq domainKeys $ map fst acrDomains
-  certificate <- certify directoryUrl acrUserKeys ((,) terms <$> email) provision certReq
+  certificate <- certify directoryUrl acrUserKeys ((,) terms <$> email) domainKeys acrDomains
   forM certificate $ saveCertificate issuerCert dh domainKeys acr
 
 saveDhParams :: AcmeCertRequest -> IO (Maybe DHP)