@@ -25,6 +25,7 @@ main = do
25 hSetBuffering stderr LineBuffering
25 hSetBuffering stderr LineBuffering
26 Right (transport, internals) <-
26 Right (transport, internals) <-
27 createTransportExposeInternals "127.0.0.1" "8080"
27 createTransportExposeInternals "127.0.0.1" "8080"
28+ (\sn -> ("127.0.0.1", sn))
28 defaultTCPParameters { transportConnectTimeout = Just 3000000 }
29 defaultTCPParameters { transportConnectTimeout = Just 3000000 }
29 ts <- tests TestTransport
30 ts <- tests TestTransport
30 { testTransport = transport
31 { testTransport = transport