diff --git a/Crypto/Cipher/Blowfish/Primitive.hs b/Crypto/Cipher/Blowfish/Primitive.hs index 9879760..d09eb4f 100644 --- a/Crypto/Cipher/Blowfish/Primitive.hs +++ b/Crypto/Cipher/Blowfish/Primitive.hs @@ -19,7 +19,7 @@ module Crypto.Cipher.Blowfish.Primitive ) where import Control.Monad (forM_) -import Data.Vector (Vector, (!), (//)) +import Data.Vector ((!)) import qualified Data.Vector as V import qualified Data.Vector.Mutable as V (unsafeRead, unsafeWrite) import Data.Bits @@ -32,9 +32,6 @@ import Crypto.Internal.ByteArray import Crypto.Internal.Words import Crypto.Cipher.Blowfish.Box -import Debug.Trace -import Text.Printf - -- | variable keyed blowfish state data Context = BF (Int -> Word32) -- p (Int -> Word32) -- sbox0