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