@@ -63,29 +63,29 @@ spec = do
6363 describe "headerLines" $ do
6464 it "can handle a nomarl case" $ do
6565 src <- mkSourceFunc ["Status: 200\r\nContent-Type: text/plain\r\n\r\n"] >>= mkSource
66− x <- headerLines src
66+ x <- headerLines True src
6767 x `shouldBe` ["Status: 200", "Content-Type: text/plain"]
6868
6969 it "can handle a nasty case (1)" $ do
7070 src <- mkSourceFunc ["Status: 200", "\r\nContent-Type: text/plain", "\r\n\r\n"] >>= mkSource
71− x <- headerLines src
71+ x <- headerLines True src
7272 x `shouldBe` ["Status: 200", "Content-Type: text/plain"]
7373
7474 it "can handle a nasty case (1)" $ do
7575 src <- mkSourceFunc ["Status: 200", "\r", "\nContent-Type: text/plain", "\r", "\n\r\n"] >>= mkSource
76− x <- headerLines src
76+ x <- headerLines True src
7777 x `shouldBe` ["Status: 200", "Content-Type: text/plain"]
7878
7979 it "can handle a nasty case (1)" $ do
8080 src <- mkSourceFunc ["Status: 200", "\r", "\n", "Content-Type: text/plain", "\r", "\n", "\r", "\n"] >>= mkSource
81− x <- headerLines src
81+ x <- headerLines True src
8282 x `shouldBe` ["Status: 200", "Content-Type: text/plain"]
8383
8484 it "can handle an illegal case (1)" $ do
8585 src <- mkSourceFunc ["\nStatus:", "\n 200", "\nContent-Type: text/plain", "\r\n\r\n"] >>= mkSource
86− x <- headerLines src
86+ x <- headerLines True src
8787 x `shouldBe` []
88− y <- headerLines src
88+ y <- headerLines True src
8989 y `shouldBe` ["Status: 200", "Content-Type: text/plain"]
9090
9191 where
@@ -111,7 +111,7 @@ headerLinesList' orig = do
111111 writeIORef ref z
112112 return y
113113 src' <- mkSource src
114− res <- headerLines src'
114+ res <- headerLines True src'
115115 return (res, src')
116116
117117consumeLen :: Int -> Source -> IO S8.ByteString