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

Remove unnecessary imports and calls

Browse Source
This commit is contained in:
Olivier Chéron 2019-03-07 21:35:04 +01:00
parent 107317c84d
commit d67a21f95f
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
Crypto/Cipher/Blowfish/Primitive.hs
View File

@ -31,12 +31,11 @@ import Data.Word
import Crypto.Cipher.Blowfish.Box import Crypto.Cipher.Blowfish.Box
import Crypto.Error import Crypto.Error
import Crypto.Internal.ByteArray (ByteArray, ByteArrayAccess, Bytes) import Crypto.Internal.ByteArray (ByteArray, ByteArrayAccess)
import qualified Crypto.Internal.ByteArray as B import qualified Crypto.Internal.ByteArray as B
import Crypto.Internal.Compat import Crypto.Internal.Compat
import Crypto.Internal.Imports import Crypto.Internal.Imports
import Crypto.Internal.WordArray import Crypto.Internal.WordArray
import Crypto.Internal.Words
newtype Context = Context Array32 newtype Context = Context Array32
@ -179,8 +178,8 @@ cipherBlock (Context ar) inverse input = doRound input 0
s2 i = arrayRead32 ar (fromIntegral i + 530) s2 i = arrayRead32 ar (fromIntegral i + 530)
s3 i = arrayRead32 ar (fromIntegral i + 786) s3 i = arrayRead32 ar (fromIntegral i + 786)
p :: Int -> Word32 p :: Int -> Word32
p i | inverse = arrayRead32 ar (17 - fromIntegral i) p i | inverse = arrayRead32 ar (17 - i)
| otherwise = arrayRead32 ar (fromIntegral i) | otherwise = arrayRead32 ar i
-- | Blowfish encrypt a Word using the current state of the key schedule -- | Blowfish encrypt a Word using the current state of the key schedule
cipherBlockMutable :: KeySchedule -> Word64 -> IO Word64 cipherBlockMutable :: KeySchedule -> Word64 -> IO Word64