diff options
author | Andrew Cady <d@jerkface.net> | 2016-01-24 14:21:55 -0500 |
---|---|---|
committer | Andrew Cady <d@jerkface.net> | 2016-01-24 15:22:39 -0500 |
commit | 08e001c5d4a620298f4d08d5d766082578e0233d (patch) | |
tree | 187af85536c44b4b7cff246521429d6f6c4a80c4 | |
parent | c78e210dc38c5c5df7134d74b137cdc3827f806a (diff) |
use BasePrelude
-rw-r--r-- | acme-certify.cabal | 2 | ||||
-rw-r--r-- | acme-certify.hs | 24 |
2 files changed, 13 insertions, 13 deletions
diff --git a/acme-certify.cabal b/acme-certify.cabal index ec7afbb..60bf41a 100644 --- a/acme-certify.cabal +++ b/acme-certify.cabal | |||
@@ -24,7 +24,7 @@ executable acme-certify | |||
24 | -- hs-source-dirs: app | 24 | -- hs-source-dirs: app |
25 | main-is: acme-certify.hs | 25 | main-is: acme-certify.hs |
26 | ghc-options: -threaded -rtsopts -with-rtsopts=-N -Wall | 26 | ghc-options: -threaded -rtsopts -with-rtsopts=-N -Wall |
27 | build-depends: base, acme-certify, | 27 | build-depends: base, base-prelude, acme-certify, |
28 | cryptonite, aeson, bytestring, base64-bytestring, SHA, | 28 | cryptonite, aeson, bytestring, base64-bytestring, SHA, |
29 | text, HsOpenSSL, optparse-applicative, time, | 29 | text, HsOpenSSL, optparse-applicative, time, |
30 | email-validate, network-uri, directory | 30 | email-validate, network-uri, directory |
diff --git a/acme-certify.hs b/acme-certify.hs index 07c2942..d127e03 100644 --- a/acme-certify.hs +++ b/acme-certify.hs | |||
@@ -1,7 +1,8 @@ | |||
1 | {-# LANGUAGE FlexibleContexts #-} | 1 | {-# LANGUAGE FlexibleContexts #-} |
2 | {-# LANGUAGE OverloadedStrings #-} | 2 | {-# LANGUAGE NoImplicitPrelude #-} |
3 | {-# LANGUAGE RecordWildCards #-} | 3 | {-# LANGUAGE OverloadedStrings #-} |
4 | {-# LANGUAGE ScopedTypeVariables #-} | 4 | {-# LANGUAGE RecordWildCards #-} |
5 | {-# LANGUAGE ScopedTypeVariables #-} | ||
5 | 6 | ||
6 | -------------------------------------------------------------------------------- | 7 | -------------------------------------------------------------------------------- |
7 | -- | Get a certificate from Let's Encrypt using the ACME protocol. | 8 | -- | Get a certificate from Let's Encrypt using the ACME protocol. |
@@ -10,15 +11,15 @@ | |||
10 | 11 | ||
11 | module Main where | 12 | module Main where |
12 | 13 | ||
13 | import Control.Monad | 14 | import BasePrelude |
14 | import qualified Data.ByteString as B | 15 | import qualified Data.ByteString as B |
15 | import qualified Data.ByteString.Lazy.Char8 as LC | 16 | import qualified Data.ByteString.Lazy.Char8 as LC |
16 | import Data.Coerce | 17 | import Data.Coerce |
17 | import Data.List | 18 | import Network.ACME (CSR (..), canProvision, certify, |
18 | import Data.Maybe | 19 | ensureWritableDir, readKeyFile, |
19 | import Data.String (fromString) | 20 | (</>)) |
20 | import Network.ACME (certify, readKeyFile, (</>), ensureWritableDir, canProvision, CSR(..)) | 21 | import Network.ACME.Encoding (Keys (..), toStrict) |
21 | import Network.ACME.Encoding (Keys(..), toStrict) | 22 | import Network.URI |
22 | import OpenSSL | 23 | import OpenSSL |
23 | import OpenSSL.EVP.Digest | 24 | import OpenSSL.EVP.Digest |
24 | import OpenSSL.PEM | 25 | import OpenSSL.PEM |
@@ -27,9 +28,8 @@ import OpenSSL.X509.Request | |||
27 | import Options.Applicative hiding (header) | 28 | import Options.Applicative hiding (header) |
28 | import qualified Options.Applicative as Opt | 29 | import qualified Options.Applicative as Opt |
29 | import System.Directory | 30 | import System.Directory |
31 | import Text.Domain.Validate hiding (validate) | ||
30 | import Text.Email.Validate | 32 | import Text.Email.Validate |
31 | import Text.Domain.Validate hiding (validate) | ||
32 | import Network.URI | ||
33 | 33 | ||
34 | stagingDirectoryUrl, liveDirectoryUrl :: URI | 34 | stagingDirectoryUrl, liveDirectoryUrl :: URI |
35 | Just liveDirectoryUrl = parseAbsoluteURI "https://acme-v01.api.letsencrypt.org/directory" | 35 | Just liveDirectoryUrl = parseAbsoluteURI "https://acme-v01.api.letsencrypt.org/directory" |