HTTP 1: do not include server header for "" #619
commit729daa3d263ac726fec8e8fbd75c2871b337c997
authorMichael Snoyman <michael@snoyman.com>
dateMon 8 May 2017, 17:48 (9 years ago)
parent9fd0dcf
warp/Network/Wai/Handler/Warp/Response.hs+4−3
@@ -431,9 +431,10 @@ warpVersion = showVersion Paths_warp.version
431431
432432addServer :: HeaderValue -> IndexedHeader -> H.ResponseHeaders -> H.ResponseHeaders
433433addServer serverName rspidxhdr hdrs = case rspidxhdr ! fromEnum ResServer of
434− Nothing
435− | serverName /= "" -> (H.hServer, serverName) : hdrs
436− _ -> hdrs
434+ Nothing -> (H.hServer, serverName) : hdrs
435+ Just serverName'
436+ | S.null serverName' -> filter (\(x, _) -> x /= "Server") hdrs
437+ | otherwise -> hdrs
437438
438439----------------------------------------------------------------
439440