@@ -471,7 +471,7 @@ apiNewEndPoint transport = try $ do
471apiConnect :: LocalEndPoint -- ^ Local end point
471apiConnect :: LocalEndPoint -- ^ Local end point
472 -> EndPointAddress -- ^ Remote address
472 -> EndPointAddress -- ^ Remote address
473 -> Reliability -- ^ Reliability (ignored)
473 -> Reliability -- ^ Reliability (ignored)
474− -> ConnectHints -- ^ Hints (ignored for now)
474+ -> ConnectHints -- ^ Hints
475 -> IO (Either (TransportError ConnectErrorCode) Connection)
475 -> IO (Either (TransportError ConnectErrorCode) Connection)
476apiConnect ourEndPoint theirAddress _reliability hints =
476apiConnect ourEndPoint theirAddress _reliability hints =
477 if localAddress ourEndPoint == theirAddress
477 if localAddress ourEndPoint == theirAddress
@@ -779,8 +779,6 @@ setupRemoteEndPoint (ourEndPoint, theirEndPoint) hints = do
779 tryCloseSocket sock
779 tryCloseSocket sock
780 return False
780 return False
781 Right (sock, ConnectionRequestCrossed) -> do
781 Right (sock, ConnectionRequestCrossed) -> do
782− -- We leave the endpoint in Init state, handleConnectionRequest will
784 resolveInit (ourEndPoint, theirEndPoint) (RemoteEndPointClosed Nothing)
782 resolveInit (ourEndPoint, theirEndPoint) (RemoteEndPointClosed Nothing)
785 tryCloseSocket sock
783 tryCloseSocket sock
786 return False
784 return False