From 1d5947f055c235494c41f0393f227858e3bc89a2 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Olivier=20Ch=C3=A9ron?= <olivier.cheron@gmail.com>
Date: Tue, 15 Jan 2019 21:24:31 +0100
Subject: [PATCH] Use any instead of not all

---
 Crypto/PubKey/RSA/PSS.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Crypto/PubKey/RSA/PSS.hs b/Crypto/PubKey/RSA/PSS.hs
index 2f6ddf3..a8336aa 100644
--- 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