From 88596509f09e89c2a07d7a42df1c261427e8ba53 Mon Sep 17 00:00:00 2001 From: Crockett Date: Sun, 3 Feb 2019 13:51:01 -0800 Subject: [PATCH] Changed imports to match style of rest of library --- Crypto/PubKey/DSA.hs | 21 +++++++++++---------- Crypto/PubKey/ECC/ECDSA.hs | 3 ++- Crypto/PubKey/Internal.hs | 5 +++-- 3 files changed, 16 insertions(+), 13 deletions(-) diff --git a/Crypto/PubKey/DSA.hs b/Crypto/PubKey/DSA.hs index b23df98..35fbf37 100644 --- a/Crypto/PubKey/DSA.hs +++ b/Crypto/PubKey/DSA.hs @@ -28,16 +28,17 @@ module Crypto.PubKey.DSA , toPrivateKey ) where -import Crypto.Random.Types -import Data.Data -import Data.Maybe -import Crypto.Number.ModArithmetic (expFast, expSafe, inverse) -import Crypto.Number.Generate -import Crypto.Internal.ByteArray (ByteArrayAccess) -import Crypto.Internal.Imports -import Crypto.Hash -import Crypto.PubKey.Internal (dsaTruncHash) -import Prelude + +import Data.Data +import Data.Maybe + +import Crypto.Number.ModArithmetic (expFast, expSafe, inverse) +import Crypto.Number.Generate +import Crypto.Internal.ByteArray (ByteArrayAccess) +import Crypto.Internal.Imports +import Crypto.Hash +import Crypto.PubKey.Internal (dsaTruncHash) +import Crypto.Random.Types -- | DSA Public Number, usually embedded in DSA Public Key type PublicNumber = Integer diff --git a/Crypto/PubKey/ECC/ECDSA.hs b/Crypto/PubKey/ECC/ECDSA.hs index 3dab3dd..6c51242 100644 --- a/Crypto/PubKey/ECC/ECDSA.hs +++ b/Crypto/PubKey/ECC/ECDSA.hs @@ -16,6 +16,8 @@ module Crypto.PubKey.ECC.ECDSA ) where import Control.Monad +import Data.Data + import Crypto.Hash import Crypto.Internal.ByteArray (ByteArrayAccess) import Crypto.Number.ModArithmetic (inverse) @@ -24,7 +26,6 @@ import Crypto.PubKey.ECC.Types import Crypto.PubKey.ECC.Prim import Crypto.PubKey.Internal (dsaTruncHash) import Crypto.Random.Types -import Data.Data -- | Represent a ECDSA signature namely R and S. data Signature = Signature diff --git a/Crypto/PubKey/Internal.hs b/Crypto/PubKey/Internal.hs index a1dd8b9..b1631cc 100644 --- a/Crypto/PubKey/Internal.hs +++ b/Crypto/PubKey/Internal.hs @@ -11,12 +11,13 @@ module Crypto.PubKey.Internal , dsaTruncHash ) where +import Data.Bits (shiftR) +import Data.List (foldl') + import Crypto.Hash import Crypto.Internal.ByteArray (ByteArrayAccess) import Crypto.Number.Basic (numBits) import Crypto.Number.Serialize -import Data.Bits (shiftR) -import Data.List (foldl') -- | This is a strict version of and and' :: [Bool] -> Bool