Improved TCP-mediated handshake protocol.

1 files changed, 5 insertions, 0 deletions

diff --git a/dht/src/Network/Tox/TCP.hs b/dht/src/Network/Tox/TCP.hs
index ebb15e3b..27a0f3d6 100644
--- a/dht/src/Network/Tox/TCP.hs
+++ b/dht/src/Network/Tox/TCP.hs
@@ -333,6 +333,11 @@ tcpPing client dst = do
                 , method         = PingPacket
                 }
 
+sendConnectionRequest :: Client err PacketNumber tid addr (Bool, RelayPacket)
+                            -> PublicKey -> addr -> IO ()
+sendConnectionRequest client pubkey ni =
+    sendMessage (clientNet client) ni (True,RoutingRequest pubkey)
+
 tcpConnectionRequest_ :: Client err PacketNumber tid addr (Bool, RelayPacket)
                         -> PublicKey -> addr -> IO (Maybe ConId)
 tcpConnectionRequest_ client pubkey ni = do