fixing the hasBody logic. (h2spec -s 8.1)
commitb030a8ce02ea5b303d8580cfe219551789856c23
authorKazu Yamamoto <kazu@iij.ad.jp>
dateThu 23 Jul 2015, 11:14 (11 years ago)
parent8eb8a0b
warp/Network/Wai/Handler/Warp/HTTP2/Worker.hs+1−1
@@ -73,7 +73,7 @@ response Context{outputQ} mgr tconf th strm pri req rsp = do
7373 _ -> do
7474 setThreadContinue tconf True
7575 let hasBody = requestMethod req /= H.methodHead
76− || R.hasBody (responseStatus rsp)
76+ && R.hasBody (responseStatus rsp)
7777 enqueue outputQ (OResponse strm rsp (Oneshot hasBody)) pri
7878 return ResponseReceived
7979