@@ -11,7 +11,7 @@ module Network.Wai.Handler.Warp.Response (
1111 , warpVersion
1212 , hasBody
1313 , replaceHeader
14− , addServer
14+ , addServer -- testing
1515 ) where
1616
1717#ifndef MIN_VERSION_base
@@ -430,13 +430,14 @@ addDate getdate rspidxhdr hdrs = case rspidxhdr ! fromEnum ResDate of
430430warpVersion :: String
431431warpVersion = showVersion Paths_warp.version
432432
433+{-# INLINE addServer #-}
433434addServer :: HeaderValue -> IndexedHeader -> H.ResponseHeaders -> H.ResponseHeaders
434435addServer "" rspidxhdr hdrs = case rspidxhdr ! fromEnum ResServer of
435436 Nothing -> hdrs
436− Just _ -> filter ((/= H.hServer) . fst) hdrs
437+ _ -> filter ((/= H.hServer) . fst) hdrs
437438addServer serverName rspidxhdr hdrs = case rspidxhdr ! fromEnum ResServer of
438439 Nothing -> (H.hServer, serverName) : hdrs
439− Just _ -> hdrs
440+ _ -> hdrs
440441
441442----------------------------------------------------------------
442443