From 05f5bb4483ac2e1f2d704ea8fdd7f1b872d7f34c Mon Sep 17 00:00:00 2001
From: Kazu Yamamoto <kazu@iij.ad.jp>
Date: Fri, 19 Jan 2018 16:26:41 +0900
Subject: [PATCH] commenting out the withFreePort test case.

---
 warp/test/WithApplicationSpec.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/warp/test/WithApplicationSpec.hs b/warp/test/WithApplicationSpec.hs
index ff415865..7eaca315 100644
--- a/warp/test/WithApplicationSpec.hs
+++ b/warp/test/WithApplicationSpec.hs
@@ -42,8 +42,10 @@ spec = do
             readProcess "curl" ["-s", "localhost:" ++ show port] "")
           `shouldThrow` (errorCall "foo")
 
+{- The future netwrok library will not export MkSocket.
   describe "withFreePort" $ do
     it "closes the socket before exiting" $ do
       MkSocket _ _ _ _ statusMVar <- withFreePort $ \ (_, sock) -> do
         return sock
       readMVar statusMVar `shouldReturn` Closed
+-}