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

[Cipher] remove the need for bytestring in Block

Browse Source
This commit is contained in:
Vincent Hanquez 2015-04-18 06:58:57 +01:00
parent d230fc662a
commit 0e9d52de95
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Crypto/Cipher/Types/Block.hs
View File

@ -10,6 +10,7 @@
{-# LANGUAGE MultiParamTypeClasses #-} {-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE ExistentialQuantification #-} {-# LANGUAGE ExistentialQuantification #-}
{-# LANGUAGE ViewPatterns #-} {-# LANGUAGE ViewPatterns #-}
{-# LANGUAGE Rank2Types #-}
module Crypto.Cipher.Types.Block module Crypto.Cipher.Types.Block
( (
-- * BlockCipher -- * BlockCipher
@ -35,8 +36,6 @@ module Crypto.Cipher.Types.Block
--, cfb8Decrypt --, cfb8Decrypt
) where ) where
import Data.ByteString (ByteString)
import qualified Data.ByteString as B
import Data.Byteable import Data.Byteable
import Data.Word import Data.Word
import Crypto.Error import Crypto.Error
@ -46,6 +45,7 @@ import Crypto.Cipher.Types.AEAD
import Crypto.Cipher.Types.Utils import Crypto.Cipher.Types.Utils
import Crypto.Internal.ByteArray import Crypto.Internal.ByteArray
import Crypto.Internal.Memory
import Foreign.Ptr import Foreign.Ptr
import Foreign.Storable import Foreign.Storable
@ -158,7 +158,7 @@ makeIV b = toIV undefined
nullIV :: BlockCipher c => IV c nullIV :: BlockCipher c => IV c
nullIV = toIV undefined nullIV = toIV undefined
where toIV :: BlockCipher c => c -> IV c where toIV :: BlockCipher c => c -> IV c
toIV cipher = IV $ B.replicate (blockSize cipher) 0 toIV cipher = IV (byteArrayZero (blockSize cipher) :: Bytes)
-- | Increment an IV by a number. -- | Increment an IV by a number.
-- --