diff options
Diffstat (limited to 'acme-certify.hs')
-rw-r--r-- | acme-certify.hs | 44 |
1 files changed, 22 insertions, 22 deletions
diff --git a/acme-certify.hs b/acme-certify.hs index 735cd04..d0f112d 100644 --- a/acme-certify.hs +++ b/acme-certify.hs | |||
@@ -21,42 +21,42 @@ | |||
21 | module Main where | 21 | module Main where |
22 | 22 | ||
23 | import BasePrelude | 23 | import BasePrelude |
24 | import Control.Lens hiding (argument, (&)) | 24 | import Control.Lens hiding (argument, (&)) |
25 | import Control.Monad.Except | 25 | import Control.Monad.Except |
26 | import Control.Monad.Trans.Resource | 26 | import Control.Monad.Trans.Resource |
27 | import Data.Aeson.Lens | 27 | import Data.Aeson.Lens |
28 | import qualified Data.HashMap.Strict as HashMap | 28 | import qualified Data.HashMap.Strict as HashMap |
29 | import Data.Text (Text, pack, unpack) | 29 | import Data.Text (Text, pack, unpack) |
30 | import Data.Text.Encoding (decodeUtf8, encodeUtf8) | 30 | import Data.Text.Encoding (decodeUtf8, encodeUtf8) |
31 | import Data.Time.Clock | 31 | import Data.Time.Clock |
32 | import Data.Yaml (Object) | 32 | import Data.Yaml (Object) |
33 | import qualified "yaml-config" Data.Yaml.Config as Config | 33 | import qualified "yaml-config" Data.Yaml.Config as Config |
34 | import Data.Yaml.Config.Internal (Config (..)) | 34 | import Data.Yaml.Config.Internal (Config (..)) |
35 | import Network.ACME (HttpProvisioner, Keys (..), | 35 | import Network.ACME (HttpProvisioner, Keys (..), |
36 | canProvision, certify, | 36 | canProvision, certify, |
37 | ensureWritableDir, | 37 | ensureWritableDir, |
38 | provisionViaFile, readKeys, | 38 | provisionViaFile, readKeys, |
39 | (</>)) | 39 | (</>)) |
40 | import Network.ACME.Issuer (letsEncryptX3CrossSigned) | 40 | import Network.ACME.Issuer (letsEncryptX3CrossSigned) |
41 | import Network.URI | 41 | import Network.URI |
42 | import OpenSSL | 42 | import OpenSSL |
43 | import OpenSSL.DH | 43 | import OpenSSL.DH |
44 | import OpenSSL.PEM | 44 | import OpenSSL.PEM |
45 | import OpenSSL.RSA | 45 | import OpenSSL.RSA |
46 | import OpenSSL.X509 (X509, getNotAfter) | 46 | import OpenSSL.X509 (X509, getNotAfter) |
47 | import Options.Applicative hiding (header) | 47 | import Options.Applicative hiding (header) |
48 | import qualified Options.Applicative as Opt | 48 | import qualified Options.Applicative as Opt |
49 | import System.Directory | 49 | import System.Directory |
50 | import System.IO | 50 | import System.IO |
51 | import System.Posix.Escape | 51 | import System.Posix.Escape |
52 | import System.Process | 52 | import System.Process |
53 | import Text.Domain.Validate hiding (validate) | 53 | import Text.Domain.Validate hiding (validate) |
54 | import Text.Email.Validate | 54 | import Text.Email.Validate |
55 | 55 | ||
56 | import qualified Data.ASN1.Types (ASN1Object) | 56 | import qualified Data.ASN1.Types (ASN1Object) |
57 | import qualified Data.ByteString as B | 57 | import qualified Data.ByteString as B |
58 | import Data.PEM (pemContent, pemParseBS) | 58 | import Data.PEM (pemContent, pemParseBS) |
59 | import qualified Data.X509 as X509 | 59 | import qualified Data.X509 as X509 |
60 | 60 | ||
61 | 61 | ||
62 | defaultUpdateConfigFile :: FilePath | 62 | defaultUpdateConfigFile :: FilePath |
@@ -344,7 +344,7 @@ runCheck CheckOpts {..} = do | |||
344 | 344 | ||
345 | plumb :: (a, Either b ()) -> Either (a, b) a | 345 | plumb :: (a, Either b ()) -> Either (a, b) a |
346 | plumb (d, Right ()) = Right d | 346 | plumb (d, Right ()) = Right d |
347 | plumb (d, Left r) = Left (d, r) | 347 | plumb (d, Left r) = Left (d, r) |
348 | 348 | ||
349 | runUpdate :: UpdateOpts -> IO () | 349 | runUpdate :: UpdateOpts -> IO () |
350 | runUpdate UpdateOpts { .. } = do | 350 | runUpdate UpdateOpts { .. } = do |