getContactInfo: Send optional TCP connection requests.

1 files changed, 3 insertions, 1 deletions

diff --git a/dht/ToxManager.hs b/dht/ToxManager.hs
index c1112a05..19db77ec 100644
--- a/dht/ToxManager.hs
+++ b/dht/ToxManager.hs
@@ -646,7 +646,9 @@ startConnecting0 tx them contact reason = do
             let meth = SearchMethod (toxQSearch tox) onResult (nearNodes tox) (key2id them) 30
                  where
                   onResult theirkey rendezvous = do
-                    dkey <- Tox.getContactInfo tox
+                    mTheirDHTKey <- atomically $ fmap ((,) (txTCP tx)) <$> contactDHTKey contact
+                    dkey <- Tox.getContactInfo mTheirDHTKey tox
+
                     let tr    = Tox.toxToRoute tox
                         route = Tox.AnnouncedRendezvous theirkey rendezvous
                     dput XMan $ unwords [ take 8 (show $ key2id theirkey)