1ca8992 · typeable/wai

git.iko.soy/typeable/wai

on master help sign in

fixing large body in HTTP/2.

1ca8992Kazu Yamamoto8 years ago

warp/Network/Wai/Handler/Warp/HTTP2/Worker.hs+9−3

@@ -246,9 +246,15 @@ worker ctx@Context{inputQ,controlQ} set app responder tm = do

246 setStreamInfo sinfo inp

247 T.resume th

248 T.tickle th

249− let ii' = ii { threadHandle = th }

249+ let !ii' = ii { threadHandle = th }

250+ !body = requestBody req

251+ !body' = do

252+ T.pause th

253+ bs <- body

254+ T.resume th

255+ return bs

250− vaultValue = Vault.insert pauseTimeoutKey (Timeout.pause th) $ vault req

256+ !vaultValue = Vault.insert pauseTimeoutKey (Timeout.pause th) $ vault req

251− req' = req { vault = vaultValue }

257+ !req' = req { vault = vaultValue, requestBody = body' }

252 app req' $ responder ii' reqvt tcont strm req'

258 app req' $ responder ii' reqvt tcont strm req'

253 cont1 <- case ex of

259 cont1 <- case ex of

254 Right ResponseReceived -> return True

260 Right ResponseReceived -> return True