haskell/cryptonite
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

[Poly1305] add NFData for Tag.

Browse Source
This commit is contained in:
Vincent Hanquez 2015-07-30 14:40:35 +01:00
parent ead424f793
commit 4653f36d19
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Crypto/MAC/Poly1305.hs
View File

@ -29,6 +29,7 @@ import Foreign.C.Types
import Data.Word import Data.Word
import Crypto.Internal.ByteArray (ByteArrayAccess, ScrubbedBytes, Bytes) import Crypto.Internal.ByteArray (ByteArrayAccess, ScrubbedBytes, Bytes)
import qualified Crypto.Internal.ByteArray as B import qualified Crypto.Internal.ByteArray as B
import Crypto.Internal.DeepSeq
import Crypto.Error import Crypto.Error
-- | Poly1305 State -- | Poly1305 State
@ -40,7 +41,7 @@ type Ctx = State
-- | Poly1305 Auth -- | Poly1305 Auth
newtype Auth = Auth Bytes newtype Auth = Auth Bytes
deriving (ByteArrayAccess) deriving (ByteArrayAccess,NFData)
instance Eq Auth where instance Eq Auth where
(Auth a1) == (Auth a2) = B.constEq a1 a2 (Auth a1) == (Auth a2) = B.constEq a1 a2