From da2f4456907de841fe3f2f01b39ff971c512dbe3 Mon Sep 17 00:00:00 2001
From: Vincent Hanquez <vincent@snarc.org>
Date: Fri, 6 Nov 2015 22:00:49 +0000
Subject: [PATCH] [Poly1305] fix size of Authentication tag creation from
 Bytestring

---
 Crypto/MAC/Poly1305.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Crypto/MAC/Poly1305.hs b/Crypto/MAC/Poly1305.hs
index f6863cc..196f985 100644
--- a/Crypto/MAC/Poly1305.hs
+++ b/Crypto/MAC/Poly1305.hs
@@ -46,7 +46,7 @@ newtype Auth = Auth Bytes
 
 authTag :: ByteArrayAccess b => b -> CryptoFailable Auth
 authTag b
-    | B.length b /= 32 = CryptoFailed $ CryptoError_AuthenticationTagSizeInvalid
+    | B.length b /= 16 = CryptoFailed $ CryptoError_AuthenticationTagSizeInvalid
     | otherwise        = CryptoPassed $ Auth $ B.convert b
 
 instance Eq Auth where