@@ -22,7 +22,7 @@ import Data.ByteString.Builder.Extra (flush)
2222import qualified Data.ByteString.Char8 as C8
2323import qualified Data.CaseInsensitive as CI
2424import Data.Function (on)
25−import Data.Streaming.ByteString.Builder (newBuilderRecv, reuseBufferStrategy)
25+import Data.Streaming.ByteString.Builder (newByteStringBuilderRecv, reuseBufferStrategy)
2626import Data.Version (showVersion)
2727import Data.Word8 (_cr, _lf)
2828import qualified Network.HTTP.Types as H
@@ -224,7 +224,7 @@ sendRsp conn _ ver s hs (RspBuilder body needsChunked) = do
224224
225225sendRsp conn _ ver s hs (RspStream streamingBody needsChunked th) = do
226226 header <- composeHeaderBuilder ver s hs needsChunked
227− (recv, finish) <- newBuilderRecv $ reuseBufferStrategy
227+ (recv, finish) <- newByteStringBuilderRecv $ reuseBufferStrategy
228228 $ toBuilderBuffer (connWriteBuffer conn) (connBufferSize conn)
229229 let send builder = do
230230 popper <- recv builder