@@ -397,10 +397,13 @@ spec = do
397397 [ ("server", "server")
398398 , ("date", "date")
399399 ] ""
400+ getValues key = map snd
401+ . filter (\(key', _) -> key == key')
402+ . responseHeaders
400403 withApp defaultSettings app $ \port -> do
401404 res <- sendGET $ "http://127.0.0.1:" ++ show port
402− getHeaderValue hServer (responseHeaders res) `shouldBe` Just "server"
403− getHeaderValue hDate (responseHeaders res) `shouldBe` Just "date"
405+ getValues hServer res `shouldBe` ["server"]
406+ getValues hDate res `shouldBe` ["date"]
404407
405408 it "streaming echo #249" $ do
406409 countVar <- newTVarIO (0 :: Int)