Server: is not added if its value is "" (#619).
commit9fd0dcf221e4946d3588eea3ccd87492ca718d6a
authorKazu Yamamoto <kazu@iij.ad.jp>
dateTue 2 May 2017, 10:05 (9 years ago)
parent0ead204
warp/Network/Wai/Handler/Warp/HTTP2/HPACK.hs+3−2
@@ -28,8 +28,9 @@ import Network.Wai.Handler.Warp.Types
2828{-# INLINE addHeader #-}
2929addHeader :: Token -> ByteString -> ValueTable -> TokenHeaderList -> TokenHeaderList
3030addHeader t v tbl ths = case getHeaderValue t tbl of
31− Nothing -> (t,v) : ths
32− Just _ -> ths
31+ Nothing
32+ | v /= "" -> (t,v) : ths
33+ _ -> ths
3334
3435addNecessaryHeaders :: Context
3536 -> Rspn
warp/Network/Wai/Handler/Warp/Response.hs+3−2
@@ -431,8 +431,9 @@ warpVersion = showVersion Paths_warp.version
431431
432432addServer :: HeaderValue -> IndexedHeader -> H.ResponseHeaders -> H.ResponseHeaders
433433addServer serverName rspidxhdr hdrs = case rspidxhdr ! fromEnum ResServer of
434− Nothing -> (H.hServer, serverName) : hdrs
435− _ -> hdrs
434+ Nothing
435+ | serverName /= "" -> (H.hServer, serverName) : hdrs
436+ _ -> hdrs
436437
437438----------------------------------------------------------------
438439