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

Use any instead of not all

Browse Source
This commit is contained in:
Olivier Chéron 2019-01-15 21:24:31 +01:00
parent ae0e9c0f3e
commit 1d5947f055
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/RSA/PSS.hs
View File

@ -166,7 +166,7 @@ verifyDigest params pk digest s
| B.length s /= k = False | B.length s /= k = False
| B.any (/= 0) pre = False | B.any (/= 0) pre = False
| B.last em /= pssTrailerField params = False | B.last em /= pssTrailerField params = False
| not (B.all (== 0) ps0) = False | B.any (/= 0) ps0 = False
| b1 /= B.singleton 1 = False | b1 /= B.singleton 1 = False
| otherwise = B.eq h h' | otherwise = B.eq h h'
where -- parameters where -- parameters