getContactInfo: Send optional TCP connection requests.

1 files changed, 5 insertions, 1 deletions

diff --git a/dht/examples/dhtd.hs b/dht/examples/dhtd.hs
index 0dcb4237..eb31543a 100644
--- a/dht/examples/dhtd.hs
+++ b/dht/examples/dhtd.hs
@@ -1596,7 +1596,11 @@ initTox runio opts ssvar keysdb mbxmpp invc = case porttox opts of
                                     --
                                     -- > a +dhtkey KWoEx1XQHrluIoW.3nK6BFb6XCebKWr3nDDt3V7CcoJ
                                     , ("dhtkey", DHTAnnouncable { announceSendData = Left ("toxid", readEither, \me them addr -> do
-                                                                        dkey <- Tox.getContactInfo tox
+                                                                        -- let mthem = Just ( TCP.tcpClient
+                                                                        --                    $ tcpKademliaClient
+                                                                        --                    $ toxOnionRoutes tox
+                                                                        --                  , them )
+                                                                        dkey <- Tox.getContactInfo Nothing tox
                                                                         sendMessage
                                                                             (Tox.toxToRoute tox)
                                                                             (Tox.AnnouncedRendezvous them addr)