@@ -25,6 +25,7 @@ main = do
2525 hSetBuffering stderr LineBuffering
2626 Right (transport, internals) <-
2727 createTransportExposeInternals "127.0.0.1" "8080"
28+ (\sn -> ("127.0.0.1", sn))
2829 defaultTCPParameters { transportConnectTimeout = Just 3000000 }
2930 ts <- tests TestTransport
3031 { testTransport = transport