diff options
author | Andrew Cady <d@jerkface.net> | 2019-07-01 14:26:49 -0400 |
---|---|---|
committer | Andrew Cady <d@jerkface.net> | 2019-07-01 14:26:49 -0400 |
commit | d35abcac585348a6a20680cdc7915d8d99626b6e (patch) | |
tree | f13faeeaa47bc9f27c10590097866629a2e879fb /lib/Transforms.hs | |
parent | f5883129b2fe368c4c3735caa37ebeafc50786f9 (diff) |
remove reundant imports
Diffstat (limited to 'lib/Transforms.hs')
-rw-r--r-- | lib/Transforms.hs | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/lib/Transforms.hs b/lib/Transforms.hs index c83f427..664cf86 100644 --- a/lib/Transforms.hs +++ b/lib/Transforms.hs | |||
@@ -39,16 +39,15 @@ import qualified Crypto.Types.PubKey.ECC as ECC | |||
39 | #else | 39 | #else |
40 | import qualified Crypto.Hash as Vincent | 40 | import qualified Crypto.Hash as Vincent |
41 | import Data.ByteArray (convert) | 41 | import Data.ByteArray (convert) |
42 | import qualified Crypto.PubKey.ECC.Types as ECC | ||
43 | #endif | 42 | #endif |
44 | import Data.ASN1.BinaryEncoding ( DER(..) ) | 43 | import Data.ASN1.BinaryEncoding ( DER(..) ) |
45 | import Data.ASN1.Types ( toASN1, ASN1Object, fromASN1 | 44 | import Data.ASN1.Types (toASN1, ASN1Object, fromASN1, ASN1(Start, End, IntVal), ASN1ConstructionType(Sequence) ) |
46 | , ASN1(Start,End,IntVal,OID,BitString,Null), ASN1ConstructionType(Sequence) ) | 45 | |
47 | import Data.ASN1.Encoding ( encodeASN1, encodeASN1', decodeASN1, decodeASN1' ) | 46 | import Data.ASN1.Encoding ( encodeASN1 ) |
48 | import qualified Data.Text as T ( Text, unpack, pack, | 47 | import qualified Data.Text as T ( Text, unpack, pack, |
49 | strip, reverse, drop, break, dropAround, length ) | 48 | strip, reverse, drop, break, dropAround, length ) |
50 | import Data.Text.Encoding ( encodeUtf8 ) | 49 | import Data.Text.Encoding ( encodeUtf8 ) |
51 | import Data.Bits ( (.|.), (.&.), Bits, shiftR ) | 50 | import Data.Bits ((.|.), (.&.), Bits) |
52 | 51 | ||
53 | type TrustMap = Map.Map FilePath Packet | 52 | type TrustMap = Map.Map FilePath Packet |
54 | type SigAndTrust = ( MappedPacket | 53 | type SigAndTrust = ( MappedPacket |