@@ -11,8 +11,6 @@ import Network.Transport.TCP
1111 , TransportInternals(socketBetween)
1212 , defaultTCPParameters
1313 , TCPParameters(..)
14− , TCPAddr(..)
15− , TCPAddrInfo(..)
1614 )
1715import Test.Framework (defaultMainWithArgs)
1816
@@ -26,11 +24,8 @@ main = do
2624 hSetBuffering stdout LineBuffering
2725 hSetBuffering stderr LineBuffering
2826 Right (transport, internals) <-
29− createTransportExposeInternals
30− (Addressable $
31− TCPAddrInfo "127.0.0.1" "8080"
32− (\sn -> ("127.0.0.1", sn))
33− )
27+ createTransportExposeInternals "127.0.0.1" "8080"
28+ (\sn -> ("127.0.0.1", sn))
3429 defaultTCPParameters { transportConnectTimeout = Just 3000000 }
3530 ts <- tests TestTransport
3631 { testTransport = transport