diff options
Diffstat (limited to 'acme-certify.hs')
-rw-r--r-- | acme-certify.hs | 8 |
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 | ||
92 | genKey :: FilePath -> IO String | 92 | genKey :: FilePath -> IO String |
93 | genKey privKeyFile = withOpenSSL $ do | 93 | genKey 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 | ||
99 | genReq :: Keys -> [DomainName] -> IO CSR | 99 | genReq :: Keys -> [DomainName] -> IO CSR |
100 | genReq _ [] = error "genReq called with zero domains" | 100 | genReq _ [] = error "genReq called with zero domains" |