Skip to content

Commit 347b2e4

Browse files
Revert "d-p-tests: Update to changes in type signature of createTransportExposeInternals."
This reverts commit a3b03fc.
1 parent a3b03fc commit 347b2e4

File tree

1 file changed

+2
-7
lines changed

1 file changed

+2
-7
lines changed

distributed-process-tests/tests/runTCP.hs

Lines changed: 2 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -11,8 +11,6 @@ import Network.Transport.TCP
1111
, TransportInternals(socketBetween)
1212
, defaultTCPParameters
1313
, TCPParameters(..)
14-
, TCPAddr(..)
15-
, TCPAddrInfo(..)
1614
)
1715
import 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

0 commit comments

Comments
 (0)