@@ -85,7 +85,7 @@ testFileRange desc s rsphdr file mPart mRange ans = it desc $ do
8585spec :: Spec
8686spec = do
8787 describe "preventing response splitting attack" $ do
88− it "returns 400 if reponse headers contain illegal characters" $ do
88+ it "returns 400 if response headers contain illegal characters" $ do
8989 let app _ f = f $ responseLBS status200 [("content-length", "20"),("foo", "foo\r\n\r\nbar\r\n")] "Hello"
9090 withApp defaultSettings app $ \port -> do
9191 res <- sendGET $ "http://127.0.0.1:" ++ show port