diff options
author | Andrew Cady <d@jerkface.net> | 2016-01-24 00:10:58 -0500 |
---|---|---|
committer | Andrew Cady <d@jerkface.net> | 2016-01-24 00:13:57 -0500 |
commit | 05817369d9388d2175e942af79888ec01aa4b74a (patch) | |
tree | ceee298e6cc5944ef7fff385f5671bbbc87ee9fd /src | |
parent | 8e1377b22088c1c871915722e83746829419a0e6 (diff) |
Remove unused imports, extensions, & definitions
Diffstat (limited to 'src')
-rw-r--r-- | src/Network/ACME.hs | 25 |
1 files changed, 3 insertions, 22 deletions
diff --git a/src/Network/ACME.hs b/src/Network/ACME.hs index 2481163..ccd0a8c 100644 --- a/src/Network/ACME.hs +++ b/src/Network/ACME.hs | |||
@@ -1,5 +1,3 @@ | |||
1 | {-# LANGUAGE FlexibleContexts #-} | ||
2 | {-# LANGUAGE MultiParamTypeClasses #-} | ||
3 | {-# LANGUAGE OverloadedStrings #-} | 1 | {-# LANGUAGE OverloadedStrings #-} |
4 | {-# LANGUAGE RecordWildCards #-} | 2 | {-# LANGUAGE RecordWildCards #-} |
5 | {-# LANGUAGE ScopedTypeVariables #-} | 3 | {-# LANGUAGE ScopedTypeVariables #-} |
@@ -17,47 +15,30 @@ module Network.ACME ( | |||
17 | signPayload, | 15 | signPayload, |
18 | ) where | 16 | ) where |
19 | 17 | ||
20 | import Control.Lens hiding ((.=)) | ||
21 | import Control.Monad | ||
22 | import Control.Monad.RWS.Strict | ||
23 | import Crypto.Number.Serialize (i2osp) | 18 | import Crypto.Number.Serialize (i2osp) |
24 | import Data.Aeson (ToJSON (..), Value, encode, object, | 19 | import Data.Aeson (ToJSON (..), encode, object, (.=)) |
25 | (.=)) | ||
26 | import Data.Aeson.Lens hiding (key) | ||
27 | import qualified Data.Aeson.Lens as JSON | ||
28 | import Data.ByteString (ByteString) | 20 | import Data.ByteString (ByteString) |
29 | import qualified Data.ByteString as B | 21 | import qualified Data.ByteString as B |
30 | import qualified Data.ByteString.Base64.URL as Base64 | 22 | import qualified Data.ByteString.Base64.URL as Base64 |
31 | import qualified Data.ByteString.Char8 as BC | 23 | import qualified Data.ByteString.Char8 as BC |
32 | import qualified Data.ByteString.Lazy as LB | 24 | import qualified Data.ByteString.Lazy as LB |
33 | import qualified Data.ByteString.Lazy.Char8 as LC | 25 | import qualified Data.ByteString.Lazy.Char8 as LC |
34 | import Data.Coerce | ||
35 | import Data.Digest.Pure.SHA (bytestringDigest, sha256) | 26 | import Data.Digest.Pure.SHA (bytestringDigest, sha256) |
36 | import Data.Maybe | 27 | import Data.Maybe |
37 | import Data.String (fromString) | 28 | import Data.Text.Encoding (decodeUtf8) |
38 | import qualified Data.Text as T | ||
39 | import Data.Text.Encoding (decodeUtf8, encodeUtf8) | ||
40 | import Data.Time.Clock.POSIX (getPOSIXTime) | ||
41 | import Network.Wreq (Response, checkStatus, defaults, | ||
42 | responseBody, responseHeader, | ||
43 | responseStatus, statusCode, | ||
44 | statusMessage) | ||
45 | import qualified Network.Wreq as W | ||
46 | import qualified Network.Wreq.Session as WS | ||
47 | import OpenSSL | 29 | import OpenSSL |
48 | import OpenSSL.EVP.Digest | 30 | import OpenSSL.EVP.Digest |
49 | import OpenSSL.EVP.PKey | 31 | import OpenSSL.EVP.PKey |
50 | import OpenSSL.EVP.Sign | 32 | import OpenSSL.EVP.Sign |
51 | import OpenSSL.PEM | 33 | import OpenSSL.PEM |
52 | import OpenSSL.RSA | 34 | import OpenSSL.RSA |
53 | import OpenSSL.X509.Request | ||
54 | 35 | ||
55 | data Keys = Keys RSAKeyPair RSAPubKey | 36 | data Keys = Keys RSAKeyPair RSAPubKey |
56 | readKeys :: String -> IO (Maybe Keys) | 37 | readKeys :: String -> IO (Maybe Keys) |
57 | readKeys privKeyData = do | 38 | readKeys privKeyData = do |
58 | keypair :: SomeKeyPair <- readPrivateKey privKeyData PwTTY | 39 | keypair :: SomeKeyPair <- readPrivateKey privKeyData PwTTY |
59 | let (priv :: Maybe RSAKeyPair) = toKeyPair keypair | 40 | let (priv :: Maybe RSAKeyPair) = toKeyPair keypair |
60 | pub :: Maybe RSAPubKey <- maybe (return Nothing) (fmap Just . rsaCopyPublic) priv | 41 | pub <- maybe (return Nothing) (fmap Just . rsaCopyPublic) priv |
61 | return $ Keys <$> priv <*> pub | 42 | return $ Keys <$> priv <*> pub |
62 | 43 | ||
63 | -------------------------------------------------------------------------------- | 44 | -------------------------------------------------------------------------------- |