Merge pull request #420 from creichert/master
Use bufferIO in place of toBS in Network.Wai.Handler.Warp.IO.
commit5c8aa9f7556c4c16266f70f1baec4bc7928e8593
authorChristopher Reichert <creichert07@gmail.com>
dateMon 10 Aug 2015, 01:17 (11 years ago)
parente8877408ffaff4
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