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

[DSA] fix badly written constraint (found by QA)

Browse Source
This commit is contained in:
Vincent Hanquez 2015-05-02 15:46:07 +01:00
parent 9c67e3c133
commit c1ed30b20e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Crypto/PubKey/DSA.hs
View File

@ -110,7 +110,7 @@ signWith k pk hashAlg msg
s = (kInv * (hm + x * r)) `mod` q s = (kInv * (hm + x * r)) `mod` q
-- | sign message using the private key. -- | sign message using the private key.
sign :: HashAlgorithm hash => MonadRandom m => PrivateKey -> hash -> ByteString -> m Signature sign :: (HashAlgorithm hash, MonadRandom m) => PrivateKey -> hash -> ByteString -> m Signature
sign pk hashAlg msg = do sign pk hashAlg msg = do
k <- generateMax q k <- generateMax q
case signWith k pk hashAlg msg of case signWith k pk hashAlg msg of