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

remove redundant condition test on `hashLen /= B.length mHash`

Browse Source
This commit is contained in:
Baojun Wang 2017-05-18 21:00:14 -07:00
parent 4270f00277
commit a8902fe119
1 changed files with 0 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Crypto/PubKey/RSA/PSS.hs
View File

@ -70,7 +70,6 @@ signDigestWithSalt :: HashAlgorithm hash
-> Either Error ByteString -> Either Error ByteString
signDigestWithSalt salt blinder params pk digest signDigestWithSalt salt blinder params pk digest
| k < hashLen + saltLen + 2 = Left InvalidParameters | k < hashLen + saltLen + 2 = Left InvalidParameters
| hashLen /= B.length mHash = Left InvalidParameters
| otherwise = Right $ dp blinder pk em | otherwise = Right $ dp blinder pk em
where k = private_size pk where k = private_size pk
mHash = B.convert digest mHash = B.convert digest