@@ -30,7 +30,7 @@ testRange range out crange = it title $ withApp defaultSettings app $ \port -> d
3030 S.hPutStr handle "Range: bytes="
3131 S.hPutStr handle range
3232 S.hPutStr handle "\r\n\r\n"
33− bss <- fmap (lines . filter (/= '\r') . S8.unpack) $ S.hGetContents handle
33+ bss <- fmap (lines . filter (/= '\r') . S8.unpack) $ S.hGetSome handle 1024
3434 hClose handle
3535 out `shouldBe` last bss
3636 let hs = mapMaybe toHeader bss
@@ -51,7 +51,7 @@ testPartial :: Integer -- ^ offset
5151testPartial offset count out = it title $ withApp defaultSettings app $ \port -> do
5252 handle <- connectTo "127.0.0.1" $ PortNumber $ fromIntegral port
5353 S.hPutStr handle "GET / HTTP/1.0\r\n\r\n"
54− bss <- fmap (lines . filter (/= '\r') . S8.unpack) $ S.hGetContents handle
54+ bss <- fmap (lines . filter (/= '\r') . S8.unpack) $ S.hGetSome handle 1024
5555 hClose handle
5656 out `shouldBe` last bss
5757 let hs = mapMaybe toHeader bss