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

remove extra bytestring.

Browse Source
This commit is contained in:
Vincent Hanquez 2015-04-24 17:22:25 +01:00
parent 9dd17fc0c4
commit 4e12aceee9
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
Crypto/Cipher/AES/Primitive.hs
View File

@ -62,8 +62,6 @@ import Data.Word
import Foreign.Ptr import Foreign.Ptr
import Foreign.C.Types import Foreign.C.Types
import Foreign.C.String import Foreign.C.String
import qualified Data.ByteString.Internal as BS
import qualified Data.ByteString as BS
import Crypto.Error import Crypto.Error
import Crypto.Cipher.Types import Crypto.Cipher.Types
@ -452,8 +450,8 @@ gcmAppendDecrypt ctx gcm input = unsafeDoIO $ withGCMKeyAndCopySt ctx gcm doDec
-- | Generate the Tag from GCM context -- | Generate the Tag from GCM context
{-# NOINLINE gcmFinish #-} {-# NOINLINE gcmFinish #-}
gcmFinish :: AES -> AESGCM -> Int -> AuthTag gcmFinish :: AES -> AESGCM -> Int -> AuthTag
gcmFinish ctx gcm taglen = AuthTag $ BS.take taglen computeTag gcmFinish ctx gcm taglen = AuthTag $ B.take taglen computeTag
where computeTag = BS.unsafeCreate 16 $ \t -> where computeTag = B.allocAndFreeze 16 $ \t ->
withGCMKeyAndCopySt ctx gcm (c_aes_gcm_finish (castPtr t)) >> return () withGCMKeyAndCopySt ctx gcm (c_aes_gcm_finish (castPtr t)) >> return ()
------------------------------------------------------------------------ ------------------------------------------------------------------------
@ -522,8 +520,8 @@ ocbAppendDecrypt ctx ocb input = unsafeDoIO $ withOCBKeyAndCopySt ctx ocb doDec
-- | Generate the Tag from OCB context -- | Generate the Tag from OCB context
{-# NOINLINE ocbFinish #-} {-# NOINLINE ocbFinish #-}
ocbFinish :: AES -> AESOCB -> Int -> AuthTag ocbFinish :: AES -> AESOCB -> Int -> AuthTag
ocbFinish ctx ocb taglen = AuthTag $ BS.take taglen computeTag ocbFinish ctx ocb taglen = AuthTag $ B.take taglen computeTag
where computeTag = BS.unsafeCreate 16 $ \t -> where computeTag = B.allocAndFreeze 16 $ \t ->
withOCBKeyAndCopySt ctx ocb (c_aes_ocb_finish (castPtr t)) >> return () withOCBKeyAndCopySt ctx ocb (c_aes_ocb_finish (castPtr t)) >> return ()
------------------------------------------------------------------------ ------------------------------------------------------------------------