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

Changed imports to match style of rest of library

Browse Source
This commit is contained in:
Crockett 2019-02-03 13:51:01 -08:00
parent 109600cec2
commit 88596509f0
3 changed files with 16 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
Crypto/PubKey/DSA.hs
View File

@ -28,16 +28,17 @@ module Crypto.PubKey.DSA
, toPrivateKey , toPrivateKey
) where ) where
import Crypto.Random.Types
import Data.Data import Data.Data
import Data.Maybe import Data.Maybe
import Crypto.Number.ModArithmetic (expFast, expSafe, inverse)
import Crypto.Number.Generate import Crypto.Number.ModArithmetic (expFast, expSafe, inverse)
import Crypto.Internal.ByteArray (ByteArrayAccess) import Crypto.Number.Generate
import Crypto.Internal.Imports import Crypto.Internal.ByteArray (ByteArrayAccess)
import Crypto.Hash import Crypto.Internal.Imports
import Crypto.PubKey.Internal (dsaTruncHash) import Crypto.Hash
import Prelude import Crypto.PubKey.Internal (dsaTruncHash)
import Crypto.Random.Types
-- | DSA Public Number, usually embedded in DSA Public Key -- | DSA Public Number, usually embedded in DSA Public Key
type PublicNumber = Integer type PublicNumber = Integer

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

@ -16,6 +16,8 @@ module Crypto.PubKey.ECC.ECDSA
) where ) where
import Control.Monad import Control.Monad
import Data.Data
import Crypto.Hash import Crypto.Hash
import Crypto.Internal.ByteArray (ByteArrayAccess) import Crypto.Internal.ByteArray (ByteArrayAccess)
import Crypto.Number.ModArithmetic (inverse) import Crypto.Number.ModArithmetic (inverse)
@ -24,7 +26,6 @@ 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.Random.Types import Crypto.Random.Types
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,12 +11,13 @@ module Crypto.PubKey.Internal
, dsaTruncHash , dsaTruncHash
) where ) where
import Data.Bits (shiftR)
import Data.List (foldl')
import Crypto.Hash import Crypto.Hash
import Crypto.Internal.ByteArray (ByteArrayAccess) import Crypto.Internal.ByteArray (ByteArrayAccess)
import Crypto.Number.Basic (numBits) import Crypto.Number.Basic (numBits)
import Crypto.Number.Serialize import Crypto.Number.Serialize
import Data.Bits (shiftR)
import Data.List (foldl')
-- | This is a strict version of and -- | This is a strict version of and
and' :: [Bool] -> Bool and' :: [Bool] -> Bool