summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndrew Cady <d@jerkface.net>2019-06-30 11:21:01 -0400
committerAndrew Cady <d@jerkface.net>2019-06-30 11:21:01 -0400
commitcdf9549916ac8ac123f583942bfaad194672c379 (patch)
treee10c6f7f3137cd5ecb89172dc426c7a5649c364e
parent560baae4cbf6c2e4993476e89b853bdb38620e6b (diff)
whitespace
-rw-r--r--acme-certify.hs44
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 @@
21module Main where 21module Main where
22 22
23import BasePrelude 23import BasePrelude
24import Control.Lens hiding (argument, (&)) 24import Control.Lens hiding (argument, (&))
25import Control.Monad.Except 25import Control.Monad.Except
26import Control.Monad.Trans.Resource 26import Control.Monad.Trans.Resource
27import Data.Aeson.Lens 27import Data.Aeson.Lens
28import qualified Data.HashMap.Strict as HashMap 28import qualified Data.HashMap.Strict as HashMap
29import Data.Text (Text, pack, unpack) 29import Data.Text (Text, pack, unpack)
30import Data.Text.Encoding (decodeUtf8, encodeUtf8) 30import Data.Text.Encoding (decodeUtf8, encodeUtf8)
31import Data.Time.Clock 31import Data.Time.Clock
32import Data.Yaml (Object) 32import Data.Yaml (Object)
33import qualified "yaml-config" Data.Yaml.Config as Config 33import qualified "yaml-config" Data.Yaml.Config as Config
34import Data.Yaml.Config.Internal (Config (..)) 34import Data.Yaml.Config.Internal (Config (..))
35import Network.ACME (HttpProvisioner, Keys (..), 35import Network.ACME (HttpProvisioner, Keys (..),
36 canProvision, certify, 36 canProvision, certify,
37 ensureWritableDir, 37 ensureWritableDir,
38 provisionViaFile, readKeys, 38 provisionViaFile, readKeys,
39 (</>)) 39 (</>))
40import Network.ACME.Issuer (letsEncryptX3CrossSigned) 40import Network.ACME.Issuer (letsEncryptX3CrossSigned)
41import Network.URI 41import Network.URI
42import OpenSSL 42import OpenSSL
43import OpenSSL.DH 43import OpenSSL.DH
44import OpenSSL.PEM 44import OpenSSL.PEM
45import OpenSSL.RSA 45import OpenSSL.RSA
46import OpenSSL.X509 (X509, getNotAfter) 46import OpenSSL.X509 (X509, getNotAfter)
47import Options.Applicative hiding (header) 47import Options.Applicative hiding (header)
48import qualified Options.Applicative as Opt 48import qualified Options.Applicative as Opt
49import System.Directory 49import System.Directory
50import System.IO 50import System.IO
51import System.Posix.Escape 51import System.Posix.Escape
52import System.Process 52import System.Process
53import Text.Domain.Validate hiding (validate) 53import Text.Domain.Validate hiding (validate)
54import Text.Email.Validate 54import Text.Email.Validate
55 55
56import qualified Data.ASN1.Types (ASN1Object) 56import qualified Data.ASN1.Types (ASN1Object)
57import qualified Data.ByteString as B 57import qualified Data.ByteString as B
58import Data.PEM (pemContent, pemParseBS) 58import Data.PEM (pemContent, pemParseBS)
59import qualified Data.X509 as X509 59import qualified Data.X509 as X509
60 60
61 61
62defaultUpdateConfigFile :: FilePath 62defaultUpdateConfigFile :: 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
349runUpdate :: UpdateOpts -> IO () 349runUpdate :: UpdateOpts -> IO ()
350runUpdate UpdateOpts { .. } = do 350runUpdate UpdateOpts { .. } = do