[Poly1305] add NFData for Tag.

2015-07-30 14:40:35 +01:00 · 2015-07-30 14:40:35 +01:00 · 4653f36d19
commit 4653f36d19
parent ead424f793
1 changed files with 2 additions and 1 deletions
--- 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