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

remove Byteable in one module

Browse Source
This commit is contained in:
Vincent Hanquez 2015-04-08 20:41:19 +01:00
parent 65780e38cb
commit 28e64ec8d3
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Crypto/Cipher/Types/AEAD.hs
View File

@ -11,9 +11,9 @@ module Crypto.Cipher.Types.AEAD where
import Data.ByteString (ByteString) import Data.ByteString (ByteString)
import qualified Data.ByteString as B import qualified Data.ByteString as B
import Data.Byteable
import Crypto.Cipher.Types.Base import Crypto.Cipher.Types.Base
import Crypto.Cipher.Types.Block import Crypto.Cipher.Types.Block
import Crypto.Internal.ByteArray
-- | Append associated data into the AEAD state -- | Append associated data into the AEAD state
aeadAppendHeader :: BlockCipher a => AEAD a -> ByteString -> AEAD a aeadAppendHeader :: BlockCipher a => AEAD a -> ByteString -> AEAD a
@ -59,5 +59,5 @@ aeadSimpleDecrypt aeadIni header input authTag
| otherwise = Nothing | otherwise = Nothing
where aead = aeadAppendHeader aeadIni header where aead = aeadAppendHeader aeadIni header
(output, aeadFinal) = aeadDecrypt aead input (output, aeadFinal) = aeadDecrypt aead input
tag = aeadFinalize aeadFinal (byteableLength authTag) tag = aeadFinalize aeadFinal (byteArrayLength authTag)