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, 4 insertions, 4 deletions
diff --git a/acme-certify.hs b/acme-certify.hs
index 7849b65..d20c3e4 100644
--- a/acme-certify.hs
+++ b/acme-certify.hs
@@ -91,10 +91,10 @@ cmdopts = CmdOpts <$> strOption (long "key" <> metavar "FILE" <>
91 91
92genKey :: FilePath -> IO String 92genKey :: FilePath -> IO String
93genKey privKeyFile = withOpenSSL $ do 93genKey privKeyFile = withOpenSSL $ do
94 kp <- generateRSAKey' 4096 65537 94 kp <- generateRSAKey' 4096 65537
95 pem <- writePKCS8PrivateKey kp Nothing 95 pem <- writePKCS8PrivateKey kp Nothing
96 writeFile privKeyFile pem 96 writeFile privKeyFile pem
97 return pem 97 return pem
98 98
99genReq :: Keys -> [DomainName] -> IO CSR 99genReq :: Keys -> [DomainName] -> IO CSR
100genReq _ [] = error "genReq called with zero domains" 100genReq _ [] = error "genReq called with zero domains"