remove warnings

Crypto/Cipher/Types.hs

@@ -17,12 +17,10 @@ module Crypto.Cipher.Types
     , StreamCipher(..)
     , DataUnitOffset
     , KeySizeSpecifier(..)
-    , AEAD(..)
-    , AEADMode(..)
-    , AEADModeImpl(..)
     -- , cfb8Encrypt
     -- , cfb8Decrypt
     -- * AEAD functions
+    , AEADMode(..)
     , module Crypto.Cipher.Types.AEAD
     -- * Initial Vector type and constructor
     , IV

Crypto/Internal/Memory.hs

@@ -27,7 +27,6 @@ import GHC.Types
 import GHC.Prim
 import GHC.Word
 import GHC.Ptr
-import Data.Word (Word8)
 import Foreign.Marshal.Utils (copyBytes)
 import Data.SecureMem (SecureMem)
 import Crypto.Internal.CompatPrim

Crypto/Internal/WordArray.hs

@@ -60,7 +60,7 @@ array32 (I# n) l = unsafeDoIO $ IO $ \s ->
         loop i st mb ((W32# x):xs)
             | booleanPrim (i ==# n) = freezeArray mb st
             | otherwise =
-                let st' = writeWord32Array# mb i x st
+                let !st' = writeWord32Array# mb i x st
                  in loop (i +# 1#) st' mb xs
         freezeArray mb st =
             case unsafeFreezeByteArray# mb st of
@@ -128,7 +128,7 @@ mutableArrayRead32 (MutableArray32 m) (I# o) = IO $ \s -> case readWord32Array#
 {-# INLINE mutableArrayRead32 #-}
 
 mutableArrayWrite32 :: MutableArray32 -> Int -> Word32 -> IO ()
-mutableArrayWrite32 (MutableArray32 m) (I# o) (W32# w) = IO $ \s -> let s' = writeWord32Array# m o w s in (# s', () #)
+mutableArrayWrite32 (MutableArray32 m) (I# o) (W32# w) = IO $ \s -> let !s' = writeWord32Array# m o w s in (# s', () #)
 {-# INLINE mutableArrayWrite32 #-}
 
 mutableArrayWriteXor32 :: MutableArray32 -> Int -> Word32 -> IO ()

Crypto/PubKey/Ed25519.hs

@@ -33,7 +33,6 @@ import           Crypto.Internal.Imports
 import           Crypto.Internal.Memory
 import           Crypto.Internal.ByteArray
 import           Crypto.Error
-import           Data.ByteString (ByteString)
 
 -- | An Ed25519 Secret key
 newtype SecretKey = SecretKey SecureBytes