From 4653f36d19009266fc4d947493b174333d0542b2 Mon Sep 17 00:00:00 2001 From: Vincent Hanquez Date: Thu, 30 Jul 2015 14:40:35 +0100 Subject: [PATCH] [Poly1305] add NFData for Tag. --- Crypto/MAC/Poly1305.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/Crypto/MAC/Poly1305.hs b/Crypto/MAC/Poly1305.hs index c264a92..d65351c 100644 --- a/Crypto/MAC/Poly1305.hs +++ b/Crypto/MAC/Poly1305.hs @@ -29,6 +29,7 @@ import Foreign.C.Types import Data.Word import Crypto.Internal.ByteArray (ByteArrayAccess, ScrubbedBytes, Bytes) import qualified Crypto.Internal.ByteArray as B +import Crypto.Internal.DeepSeq import Crypto.Error -- | Poly1305 State @@ -40,7 +41,7 @@ type Ctx = State -- | Poly1305 Auth newtype Auth = Auth Bytes - deriving (ByteArrayAccess) + deriving (ByteArrayAccess,NFData) instance Eq Auth where (Auth a1) == (Auth a2) = B.constEq a1 a2