From c1ed30b20ed4b570307adbb482a0cc511bf09e8f Mon Sep 17 00:00:00 2001 From: Vincent Hanquez Date: Sat, 2 May 2015 15:46:07 +0100 Subject: [PATCH] [DSA] fix badly written constraint (found by QA) --- Crypto/PubKey/DSA.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Crypto/PubKey/DSA.hs b/Crypto/PubKey/DSA.hs index 3024a04..b8884ba 100644 --- a/Crypto/PubKey/DSA.hs +++ b/Crypto/PubKey/DSA.hs @@ -110,7 +110,7 @@ signWith k pk hashAlg msg s = (kInv * (hm + x * r)) `mod` q -- | 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 k <- generateMax q case signWith k pk hashAlg msg of