fixing a bug of addHeader.
See 78022f960c92610446da29de67db00b51498dabf
"test cases for addHeader and fix (#619)"
This commit contains a terrible bug.
commita153d695ce05141f4b466429235abd56a9f10126
authorKazu Yamamoto <kazu@iij.ad.jp>
dateFri 7 Sep 2018, 13:42 (8 years ago)
parent9f329a6
warp/Network/Wai/Handler/Warp/HTTP2/HPACK.hs+2−3
@@ -28,9 +28,8 @@ import Network.Wai.Handler.Warp.Types
2828
2929{-# INLINE addHeader #-}
3030addHeader :: Token -> ByteString -> ValueTable -> TokenHeaderList -> TokenHeaderList
31−addHeader t "" tbl ths = case getHeaderValue t tbl of
32− Nothing -> ths
33− _ -> filter ((/= tokenServer) . fst) ths
31+addHeader t "" _ ths
32+ | t == tokenServer = filter ((/= tokenServer) . fst) ths
3433addHeader t v tbl ths = case getHeaderValue t tbl of
3534 Nothing -> (t,v) : ths
3635 _ -> ths