git.iko.soy/typeable/wai
on master help sign in
Merge pull request #22 from kazu-yamamoto/master
26eb041Michael Snoyman
warp/Network/Wai/Handler/Warp.hs+1−4
compare with master
unifiedsplit
@@ -111,8 +111,6 @@ import qualified Network.HTTP.Types as H
111import qualified Data.CaseInsensitive as CI
111import qualified Data.CaseInsensitive as CI
112import System.IO (hPutStrLn, stderr)
112import System.IO (hPutStrLn, stderr)
113
113
114−import Data.List (delete)
115−
116#if WINDOWS
114#if WINDOWS
117import Control.Concurrent (threadDelay)
115import Control.Concurrent (threadDelay)
118import qualified Control.Concurrent.MVar as MV
116import qualified Control.Concurrent.MVar as MV
@@ -616,9 +614,8 @@ withManager timeout f = do
616serverHeader :: H.RequestHeaders -> H.RequestHeaders
614serverHeader :: H.RequestHeaders -> H.RequestHeaders
617serverHeader hdrs = case lookup key hdrs of
615serverHeader hdrs = case lookup key hdrs of
618 Nothing -> server : hdrs
616 Nothing -> server : hdrs
619− Just svr -> servers svr : delete (key,svr) hdrs
617+ Just _ -> hdrs
620 where
618 where
621 key = "Server"
619 key = "Server"
622 ver = B.pack $ "Warp/" ++ warpVersion
620 ver = B.pack $ "Warp/" ++ warpVersion
623 server = (key, ver)
621 server = (key, ver)
624− servers svr = (key, S.concat [svr, " ", ver])