diff --git a/ChangeLog.md b/ChangeLog.md
--- a/ChangeLog.md
+++ b/ChangeLog.md
@@ -1,5 +1,9 @@
 # ChangeLog for streaming-commons
 
+## 0.2.2.1
+
+* Fix test suite compilation issue [stackage#5528](https://github.com/commercialhaskell/stackage/issues/5528)
+
 ## 0.2.2.0
 
 * Remove `AI_ADDRCONFIG` [#58](https://github.com/fpco/streaming-commons/issues/58)
diff --git a/streaming-commons.cabal b/streaming-commons.cabal
--- a/streaming-commons.cabal
+++ b/streaming-commons.cabal
@@ -1,5 +1,5 @@
 name:                streaming-commons
-version:             0.2.2.0
+version:             0.2.2.1
 synopsis:            Common lower-level functions needed by various streaming data libraries
 description:         Provides low-dependency functionality commonly needed by various streaming data libraries, such as conduit and pipes.
 homepage:            https://github.com/fpco/streaming-commons
diff --git a/test/Data/Streaming/ByteString/BuilderSpec.hs b/test/Data/Streaming/ByteString/BuilderSpec.hs
--- a/test/Data/Streaming/ByteString/BuilderSpec.hs
+++ b/test/Data/Streaming/ByteString/BuilderSpec.hs
@@ -107,16 +107,16 @@
         builderSpec
 
         let prop_idempotent i bss' = do
-            let bss = mconcat (map (B.byteString . S.pack) bss')
-            ior <- newIORef []
-            toByteStringIOWith 16
-                               (\s -> do let s' = S.copy s
-                                         s' `seq` modifyIORef ior (s' :))
-                               bss
-            chunks <- readIORef ior
-            let have = L.unpack (L.fromChunks (reverse chunks))
-                want = L.unpack (B.toLazyByteString bss)
-            (i, have) `shouldBe` (i, want)
+              let bss = mconcat (map (B.byteString . S.pack) bss')
+              ior <- newIORef []
+              toByteStringIOWith 16
+                                 (\s -> do let s' = S.copy s
+                                           s' `seq` modifyIORef ior (s' :))
+                                 bss
+              chunks <- readIORef ior
+              let have = L.unpack (L.fromChunks (reverse chunks))
+                  want = L.unpack (B.toLazyByteString bss)
+              (i, have) `shouldBe` (i, want)
 
         prop "toByteStringIO idempotent to toLazyByteString" (prop_idempotent (0::Int))