diff --git a/test/Spec.hs b/test/Spec.hs
index 7528885..a7a8e78 100644
--- a/test/Spec.hs
+++ b/test/Spec.hs
@@ -319,7 +319,7 @@ readFromSmartSource :: FilePath -> FilePath -> String -> IO [String]
 readFromSmartSource defaultDir defaultFile specS = do
   (Right spec) <- getSmartSourceSpec defaultDir defaultFile specS
   let source = smartSource spec
-  contents <- runResourceT (source $$ CT.decodeUtf8Lenient =$ CL.consume)
+  contents <- runResourceT $ runConduit (source .| CT.decodeUtf8Lenient .| CL.consume)
   return $ Prelude.map unpack contents
 
 neverMatch :: Char -> Int -> Bool