@@ -24,12 +24,7 @@ import System.IO.Unsafe (unsafePerformIO)
2424import Test.Hspec
2525import Control.Concurrent.MVar (newEmptyMVar, takeMVar, putMVar)
2626import Control.Exception.Lifted (bracket, try, IOException, onException)
27−#if MIN_VERSION_conduit(1,1,0)
2827import Data.Streaming.Network (bindPortTCP)
29−#define bindPort bindPortTCP
30−#else
31−import Data.Conduit.Network (bindPort)
32−#endif
3328import Network.Socket (sClose)
3429import qualified Network.HTTP as HTTP
3530
@@ -82,7 +77,7 @@ nextPort = unsafePerformIO $ I.newIORef 5000
8277getPort :: IO Int
8378getPort = do
8479 port <- I.atomicModifyIORef nextPort $ \p -> (p + 1, p)
85− esocket <- try $ bindPort port "*4"
80+ esocket <- try $ bindPortTCP port "*4"
8681 case esocket of
8782 Left (_ :: IOException) -> RunSpec.getPort
8883 Right socket -> do