diff options
author | Andrew Cady <d@jerkface.net> | 2016-01-27 07:41:05 -0500 |
---|---|---|
committer | Andrew Cady <d@jerkface.net> | 2016-01-27 07:52:52 -0500 |
commit | 53840cb3e183bebead084a1ed550728b69ed88f3 (patch) | |
tree | 87c06ad89a22d6c589db7cdca1a1fc9b549237b0 /acme-certify.hs | |
parent | 552e6d79204cb6439c86ade4c1bf9bc785e47535 (diff) |
remove Keys type from Network.ACME.Encoding
Diffstat (limited to 'acme-certify.hs')
-rw-r--r-- | acme-certify.hs | 17 |
1 files changed, 8 insertions, 9 deletions
diff --git a/acme-certify.hs b/acme-certify.hs index 98f6711..352be21 100644 --- a/acme-certify.hs +++ b/acme-certify.hs | |||
@@ -12,22 +12,21 @@ | |||
12 | module Main where | 12 | module Main where |
13 | 13 | ||
14 | import BasePrelude | 14 | import BasePrelude |
15 | import Network.ACME (canProvision, certify, | 15 | import Network.ACME (Keys (..), canProvision, certify, |
16 | ensureWritableDir, fileProvisioner, | 16 | ensureWritableDir, fileProvisioner, |
17 | genReq, (</>)) | 17 | genReq, readKeys, (</>)) |
18 | import Network.ACME.Encoding (Keys (..), readKeys) | 18 | import Network.ACME.Issuer (letsEncryptX1CrossSigned) |
19 | import Network.ACME.Issuer (letsEncryptX1CrossSigned) | ||
20 | import Network.URI | 19 | import Network.URI |
21 | import OpenSSL | 20 | import OpenSSL |
22 | import OpenSSL.DH | 21 | import OpenSSL.DH |
23 | import OpenSSL.PEM | 22 | import OpenSSL.PEM |
24 | import OpenSSL.RSA | 23 | import OpenSSL.RSA |
25 | import OpenSSL.X509 (X509) | 24 | import OpenSSL.X509 (X509) |
26 | import Options.Applicative hiding (header) | 25 | import Options.Applicative hiding (header) |
27 | import qualified Options.Applicative as Opt | 26 | import qualified Options.Applicative as Opt |
28 | import System.Directory | 27 | import System.Directory |
29 | import System.IO | 28 | import System.IO |
30 | import Text.Domain.Validate hiding (validate) | 29 | import Text.Domain.Validate hiding (validate) |
31 | import Text.Email.Validate | 30 | import Text.Email.Validate |
32 | 31 | ||
33 | stagingDirectoryUrl, liveDirectoryUrl, defaultTerms :: URI | 32 | stagingDirectoryUrl, liveDirectoryUrl, defaultTerms :: URI |