diff options
| author | Andrew Cady <d@jerkface.net> | 2016-01-24 16:22:32 -0500 |
|---|---|---|
| committer | Andrew Cady <d@jerkface.net> | 2016-01-24 19:47:45 -0500 |
| commit | 90b9dc94d3d0c4cb13cb5e6e400ed1012747e6ff (patch) | |
| tree | 86c63e86ec498a9be6a0bab270e5803f9fa3a0f4 /acme-certify.hs | |
| parent | c4b9b52a2ebbc8d113f4829c86834dcd565cd6a3 (diff) | |
fix warnings
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" |