File tree Expand file tree Collapse file tree 1 file changed +2
-7
lines changed
distributed-process-tests/tests Expand file tree Collapse file tree 1 file changed +2
-7
lines changed Original file line number Diff line number Diff line change @@ -11,8 +11,6 @@ import Network.Transport.TCP
11
11
, TransportInternals (socketBetween )
12
12
, defaultTCPParameters
13
13
, TCPParameters (.. )
14
- , TCPAddr (.. )
15
- , TCPAddrInfo (.. )
16
14
)
17
15
import Test.Framework (defaultMainWithArgs )
18
16
@@ -26,11 +24,8 @@ main = do
26
24
hSetBuffering stdout LineBuffering
27
25
hSetBuffering stderr LineBuffering
28
26
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))
34
29
defaultTCPParameters { transportConnectTimeout = Just 3000000 }
35
30
ts <- tests TestTransport
36
31
{ testTransport = transport
You can’t perform that action at this time.
0 commit comments