Changed imports to match style of rest of library
This commit is contained in:
parent
109600cec2
commit
88596509f0
@ -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
|
||||
|
||||
@ -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
|
||||
|
||||
@ -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
|
||||
|
||||
Loading…
Reference in New Issue
Block a user