347b2e4 · distributed-process

git.iko.soy/distributed-process

on master help sign in

Revert "d-p-tests: Update to changes in type signature of createTransportExposeInternals."

347b2e4Facundo Domínguez9 years ago

distributed-process-tests/tests/runTCP.hs+2−7

@@ -11,8 +11,6 @@ import Network.Transport.TCP

11 , TransportInternals(socketBetween)

12 , defaultTCPParameters

13 , TCPParameters(..)

14− , TCPAddr(..)

15− , TCPAddrInfo(..)

16 )

14 )

17import Test.Framework (defaultMainWithArgs)

15import Test.Framework (defaultMainWithArgs)

@@ -26,11 +24,8 @@ main = do

26 hSetBuffering stdout LineBuffering

24 hSetBuffering stdout LineBuffering

27 hSetBuffering stderr LineBuffering

25 hSetBuffering stderr LineBuffering

28 Right (transport, internals) <-

26 Right (transport, internals) <-

29− createTransportExposeInternals

27+ createTransportExposeInternals "127.0.0.1" "8080"

30− (Addressable $

31− TCPAddrInfo "127.0.0.1" "8080"

32− (\sn -> ("127.0.0.1", sn))

28+ (\sn -> ("127.0.0.1", sn))

33− )

34 defaultTCPParameters { transportConnectTimeout = Just 3000000 }

29 defaultTCPParameters { transportConnectTimeout = Just 3000000 }

35 ts <- tests TestTransport

30 ts <- tests TestTransport

36 { testTransport = transport

31 { testTransport = transport