Use any instead of not all

2019-01-15 21:24:31 +01:00 · 2019-01-15 21:24:31 +01:00 · 1d5947f055
commit 1d5947f055
parent ae0e9c0f3e
1 changed files with 1 additions and 1 deletions
--- a/Crypto/PubKey/RSA/PSS.hs
+++ b/Crypto/PubKey/RSA/PSS.hs
@ -166,7 +166,7 @@ verifyDigest params pk digest s
    | B.length s /= k                     = False
    | B.any (/= 0) pre                    = False
    | B.last em /= pssTrailerField params = False
-    | not (B.all (== 0) ps0)              = False
+    | B.any (/= 0) ps0                    = False
    | b1 /= B.singleton 1                 = False
    | otherwise                           = B.eq h h'
        where -- parameters