haskell/cryptonite
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Added missing imports and removed duplicate imports. Tests pass.

Browse Source
This commit is contained in:
Crockett 2019-02-03 13:43:54 -08:00
parent c71a6733dd
commit 109600cec2
3 changed files with 9 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Crypto/PubKey/DSA.hs
View File

@ -29,14 +29,11 @@ module Crypto.PubKey.DSA
) where ) where
import Crypto.Random.Types import Crypto.Random.Types
import qualified Data.Bits as Bits (shiftL, (.|.), shiftR)
import Data.Data import Data.Data
import Data.Maybe import Data.Maybe
import Crypto.Number.Basic (numBits)
import Crypto.Number.ModArithmetic (expFast, expSafe, inverse) import Crypto.Number.ModArithmetic (expFast, expSafe, inverse)
import Crypto.Number.Serialize
import Crypto.Number.Generate import Crypto.Number.Generate
import Crypto.Internal.ByteArray (ByteArrayAccess, ByteArray, ScrubbedBytes, convert, index, dropView, takeView, pack, unpack) import Crypto.Internal.ByteArray (ByteArrayAccess)
import Crypto.Internal.Imports import Crypto.Internal.Imports
import Crypto.Hash import Crypto.Hash
import Crypto.PubKey.Internal (dsaTruncHash) import Crypto.PubKey.Internal (dsaTruncHash)

10
Crypto/PubKey/ECC/ECDSA.hs
View File

@ -16,19 +16,15 @@ module Crypto.PubKey.ECC.ECDSA
) where ) where
import Control.Monad import Control.Monad
import Crypto.Random.Types import Crypto.Hash
import Data.Bits (shiftR)
import Crypto.Internal.ByteArray (ByteArrayAccess) import Crypto.Internal.ByteArray (ByteArrayAccess)
import Data.Data
import Crypto.Number.Basic (numBits)
import Crypto.Number.ModArithmetic (inverse) import Crypto.Number.ModArithmetic (inverse)
import Crypto.Number.Serialize
import Crypto.Number.Generate import Crypto.Number.Generate
import Crypto.PubKey.ECC.Types import Crypto.PubKey.ECC.Types
import Crypto.PubKey.ECC.Prim import Crypto.PubKey.ECC.Prim
import Crypto.PubKey.Internal (dsaTruncHash) import Crypto.PubKey.Internal (dsaTruncHash)
import Crypto.Hash import Crypto.Random.Types
import Crypto.Hash.Types (hashDigestSize) import Data.Data
-- | Represent a ECDSA signature namely R and S. -- | Represent a ECDSA signature namely R and S.
data Signature = Signature data Signature = Signature

5
Crypto/PubKey/Internal.hs
View File

@ -11,6 +11,11 @@ module Crypto.PubKey.Internal
, dsaTruncHash , dsaTruncHash
) where ) where
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') import Data.List (foldl')
-- | This is a strict version of and -- | This is a strict version of and