Use bufferIO in place of toBS in Network.Wai.Handler.Warp.IO.
When using blaze-builder < 0.4
Fixes #419.
commit8ffaff4483e9d7ec086db7f0bae658391933b9e4
authorChristopher Reichert <creichert07@gmail.com>
dateSun 9 Aug 2015, 14:19 (11 years ago)
parente887740
warp/Network/Wai/Handler/Warp/IO.hs+1−1
@@ -47,7 +47,7 @@ toBufIOWith buf !size io (Builder build) = loop firstStep
4747 firstStep = build (buildStep finalStep)
4848 finalStep (BufRange p _) = return $ Done p ()
4949 bufRange = BufRange buf (buf `plusPtr` size)
50− runIO ptr = toBS buf (ptr `minusPtr` buf) >>= io
50+ runIO ptr = bufferIO buf (ptr `minusPtr` buf) io
5151 loop step = do
5252 signal <- runBuildStep step bufRange
5353 case signal of