diff --git a/changelog.md b/changelog.md
--- a/changelog.md
+++ b/changelog.md
@@ -1,3 +1,6 @@
+# Version 1.3.3.1
+  - Fixed a testsuite compile error on GHC >= 7.10.
+
 # Version 1.3.3.0
   - Added a new convenience function, like `chunkList` but with a predicate for
     when to split, taking current element and current chunk length:
diff --git a/io-streams.cabal b/io-streams.cabal
--- a/io-streams.cabal
+++ b/io-streams.cabal
@@ -1,5 +1,5 @@
 Name:                io-streams
-Version:             1.3.3.0
+Version:             1.3.3.1
 License:             BSD3
 License-file:        LICENSE
 Category:            Data, Network, IO-Streams
diff --git a/test/System/IO/Streams/Tests/ByteString.hs b/test/System/IO/Streams/Tests/ByteString.hs
--- a/test/System/IO/Streams/Tests/ByteString.hs
+++ b/test/System/IO/Streams/Tests/ByteString.hs
@@ -14,8 +14,8 @@
 import           Data.Maybe                           (isJust)
 import           Data.Monoid
 import           Prelude                              hiding (lines, read,
-                                                       takeWhile, unlines,
-                                                       unwords, unwords,
+                                                       take, takeWhile,
+                                                       unlines, unwords,
                                                        words)
 import qualified Prelude
 import           System.IO.Streams                    hiding (filter,
diff --git a/test/System/IO/Streams/Tests/List.hs b/test/System/IO/Streams/Tests/List.hs
--- a/test/System/IO/Streams/Tests/List.hs
+++ b/test/System/IO/Streams/Tests/List.hs
@@ -39,20 +39,22 @@
     fromList [1..10 :: Int] >>= chunkListWith (\_ n -> n>=3)
                             >>= toList
                             >>= assertEqual "chunkListWith" [ [1,2,3]
-                                                        , [4,5,6]
-                                                        , [7,8,9]
-                                                        , [10]
-                                                        ]
+                                                            , [4,5,6]
+                                                            , [7,8,9]
+                                                            , [10]
+                                                            ]
     fromList [1..12 :: Int] >>= chunkListWith (\_ n -> n>=3)
                             >>= concatLists
                             >>= toList
                             >>= assertEqual "concatlists" [1..12]
 
-    fromList ['a'..'z' :: Char] >>= chunkListWith (\x n -> n>=4 && x `elem` "aeiouy")
-                            >>= toList
-                            >>= assertEqual "chunkListWith" ["abcde"
-                                                            ,"fghi"
-                                                            ,"jklmno"
-                                                            ,"pqrstu"
-                                                            ,"vwxy"
-                                                            ,"z"]
+    fromList ['a'..'z' :: Char]
+        >>= chunkListWith (\x n -> n>=4 && x `elem` ("aeiouy" :: String))
+        >>= toList
+        >>= assertEqual "chunkListWith" [ "abcde"
+                                        , "fghi"
+                                        , "jklmno"
+                                        , "pqrstu"
+                                        , "vwxy"
+                                        , "z"
+                                        ]