@@ -111,8 +111,6 @@ import qualified Network.HTTP.Types as H
111111import qualified Data.CaseInsensitive as CI
112112import System.IO (hPutStrLn, stderr)
113113
114−import Data.List (delete)
115−
116114#if WINDOWS
117115import Control.Concurrent (threadDelay)
118116import qualified Control.Concurrent.MVar as MV
@@ -616,9 +614,8 @@ withManager timeout f = do
616614serverHeader :: H.RequestHeaders -> H.RequestHeaders
617615serverHeader hdrs = case lookup key hdrs of
618616 Nothing -> server : hdrs
619− Just svr -> servers svr : delete (key,svr) hdrs
617+ Just _ -> hdrs
620618 where
621619 key = "Server"
622620 ver = B.pack $ "Warp/" ++ warpVersion
623621 server = (key, ver)
624− servers svr = (key, S.concat [svr, " ", ver])