summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndrew Cady <d@jerkface.net>2016-01-24 14:21:55 -0500
committerAndrew Cady <d@jerkface.net>2016-01-24 15:22:39 -0500
commit08e001c5d4a620298f4d08d5d766082578e0233d (patch)
tree187af85536c44b4b7cff246521429d6f6c4a80c4
parentc78e210dc38c5c5df7134d74b137cdc3827f806a (diff)
use BasePrelude
-rw-r--r--acme-certify.cabal2
-rw-r--r--acme-certify.hs24
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
11module Main where 12module Main where
12 13
13import Control.Monad 14import BasePrelude
14import qualified Data.ByteString as B 15import qualified Data.ByteString as B
15import qualified Data.ByteString.Lazy.Char8 as LC 16import qualified Data.ByteString.Lazy.Char8 as LC
16import Data.Coerce 17import Data.Coerce
17import Data.List 18import Network.ACME (CSR (..), canProvision, certify,
18import Data.Maybe 19 ensureWritableDir, readKeyFile,
19import Data.String (fromString) 20 (</>))
20import Network.ACME (certify, readKeyFile, (</>), ensureWritableDir, canProvision, CSR(..)) 21import Network.ACME.Encoding (Keys (..), toStrict)
21import Network.ACME.Encoding (Keys(..), toStrict) 22import Network.URI
22import OpenSSL 23import OpenSSL
23import OpenSSL.EVP.Digest 24import OpenSSL.EVP.Digest
24import OpenSSL.PEM 25import OpenSSL.PEM
@@ -27,9 +28,8 @@ import OpenSSL.X509.Request
27import Options.Applicative hiding (header) 28import Options.Applicative hiding (header)
28import qualified Options.Applicative as Opt 29import qualified Options.Applicative as Opt
29import System.Directory 30import System.Directory
31import Text.Domain.Validate hiding (validate)
30import Text.Email.Validate 32import Text.Email.Validate
31import Text.Domain.Validate hiding (validate)
32import Network.URI
33 33
34stagingDirectoryUrl, liveDirectoryUrl :: URI 34stagingDirectoryUrl, liveDirectoryUrl :: URI
35Just liveDirectoryUrl = parseAbsoluteURI "https://acme-v01.api.letsencrypt.org/directory" 35Just liveDirectoryUrl = parseAbsoluteURI "https://acme-v01.api.letsencrypt.org/directory"