@@ -11,6 +11,8 @@ import Network.Transport.TCP
1111 , TransportInternals(socketBetween)
1212 , defaultTCPParameters
1313 , TCPParameters(..)
14+ , TCPAddr(..)
15+ , TCPAddrInfo(..)
1416 )
1517import Test.Framework (defaultMainWithArgs)
1618
@@ -24,8 +26,11 @@ main = do
2426 hSetBuffering stdout LineBuffering
2527 hSetBuffering stderr LineBuffering
2628 Right (transport, internals) <-
27− createTransportExposeInternals "127.0.0.1" "8080"
28− (\sn -> ("127.0.0.1", sn))
29+ createTransportExposeInternals
30+ (Addressable $
31+ TCPAddrInfo "127.0.0.1" "8080"
32+ (\sn -> ("127.0.0.1", sn))
33+ )
2934 defaultTCPParameters { transportConnectTimeout = Just 3000000 }
3035 ts <- tests TestTransport
3136 { testTransport = transport