git.iko.soy/typeable/wai
on master help sign in
HTTP 1: do not include server header for "" #619
729daa3Michael Snoyman
warp/Network/Wai/Handler/Warp/Response.hs+4−3
compare with master
unifiedsplit
@@ -431,9 +431,10 @@ warpVersion = showVersion Paths_warp.version
431
431
432addServer :: HeaderValue -> IndexedHeader -> H.ResponseHeaders -> H.ResponseHeaders
432addServer :: HeaderValue -> IndexedHeader -> H.ResponseHeaders -> H.ResponseHeaders
433addServer serverName rspidxhdr hdrs = case rspidxhdr ! fromEnum ResServer of
433addServer serverName rspidxhdr hdrs = case rspidxhdr ! fromEnum ResServer of
434− Nothing
435− | serverName /= "" -> (H.hServer, serverName) : hdrs
434+ Nothing -> (H.hServer, serverName) : hdrs
435+ Just serverName'
436+ | S.null serverName' -> filter (\(x, _) -> x /= "Server") hdrs
436− _ -> hdrs
437+ | otherwise -> hdrs
437
438
438----------------------------------------------------------------
439----------------------------------------------------------------
439
440