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

[Poly1305] fix size of Authentication tag creation from Bytestring

Browse Source
This commit is contained in:
Vincent Hanquez 2015-11-06 22:00:49 +00:00
parent 7f3b525699
commit da2f445690
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Crypto/MAC/Poly1305.hs
View File

@ -46,7 +46,7 @@ newtype Auth = Auth Bytes
authTag :: ByteArrayAccess b => b -> CryptoFailable Auth authTag :: ByteArrayAccess b => b -> CryptoFailable Auth
authTag b authTag b
| B.length b /= 32 = CryptoFailed $ CryptoError_AuthenticationTagSizeInvalid | B.length b /= 16 = CryptoFailed $ CryptoError_AuthenticationTagSizeInvalid
| otherwise = CryptoPassed $ Auth $ B.convert b | otherwise = CryptoPassed $ Auth $ B.convert b
instance Eq Auth where instance Eq Auth where