summaryrefslogtreecommitdiff
path: root/dht/ToxManager.hs
diff options
context:
space:
mode:
Diffstat (limited to 'dht/ToxManager.hs')
-rw-r--r--dht/ToxManager.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/dht/ToxManager.hs b/dht/ToxManager.hs
index 733a0cdc..b0990430 100644
--- a/dht/ToxManager.hs
+++ b/dht/ToxManager.hs
@@ -646,7 +646,7 @@ startConnecting0 tx them contact reason = do
646 let meth = SearchMethod (toxQSearch tox) onResult (nearNodes tox) (key2id them) 30 646 let meth = SearchMethod (toxQSearch tox) onResult (nearNodes tox) (key2id them) 30
647 where 647 where
648 onResult theirkey rendezvous = do 648 onResult theirkey rendezvous = do
649 dkey <- Tox.getContactInfo (Just (txTCP tx,them)) tox 649 dkey <- Tox.getContactInfo tox
650 let tr = Tox.toxToRoute tox 650 let tr = Tox.toxToRoute tox
651 route = Tox.AnnouncedRendezvous theirkey rendezvous 651 route = Tox.AnnouncedRendezvous theirkey rendezvous
652 dput XMan $ unwords [ take 8 (show $ key2id theirkey) 652 dput XMan $ unwords [ take 8 (show $ key2id theirkey)