@@ -414,7 +414,6 @@ spec = do
414414 res <- sendGET $ "http://127.0.0.1:" ++ show port
415415 getValues hServer res `shouldBe` ["server"]
416416 getValues hDate res `shouldBe` ["date"]
417−#endif
418417
419418 it "streaming echo #249" $ do
420419 countVar <- newTVarIO (0 :: Int)
@@ -436,6 +435,7 @@ spec = do
436435 check $ count >= 1
437436 bs <- safeRecv sock 4096
438437 S.takeWhile (/= 13) bs `shouldBe` "HTTP/1.1 200 OK"
438+#endif
439439
440440 it "streaming response with length" $ do
441441 let app _ f = f $ responseStream status200 [("content-length", "20")] $ \write _ -> do