a3b03fc · distributed-process

git.iko.soy/distributed-process

on master help sign in

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

a3b03fcFacundo Domínguez9 years ago

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

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

11 , TransportInternals(socketBetween)

12 , defaultTCPParameters

13 , TCPParameters(..)

14+ , TCPAddr(..)

15+ , TCPAddrInfo(..)

14 )

16 )

15import Test.Framework (defaultMainWithArgs)

17import Test.Framework (defaultMainWithArgs)

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

24 hSetBuffering stdout LineBuffering

26 hSetBuffering stdout LineBuffering

25 hSetBuffering stderr LineBuffering

27 hSetBuffering stderr LineBuffering

26 Right (transport, internals) <-

28 Right (transport, internals) <-

27− createTransportExposeInternals "127.0.0.1" "8080"

29+ createTransportExposeInternals

30+ (Addressable $

31+ TCPAddrInfo "127.0.0.1" "8080"

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

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

33+ )

29 defaultTCPParameters { transportConnectTimeout = Just 3000000 }

34 defaultTCPParameters { transportConnectTimeout = Just 3000000 }

30 ts <- tests TestTransport

35 ts <- tests TestTransport

31 { testTransport = transport

36 { testTransport = transport