summaryrefslogtreecommitdiff
path: root/dht/examples/dhtd.hs
diff options
context:
space:
mode:
Diffstat (limited to 'dht/examples/dhtd.hs')
-rw-r--r--dht/examples/dhtd.hs6
1 files changed, 5 insertions, 1 deletions
diff --git a/dht/examples/dhtd.hs b/dht/examples/dhtd.hs
index c36508ef..d7c817ca 100644
--- a/dht/examples/dhtd.hs
+++ b/dht/examples/dhtd.hs
@@ -1581,7 +1581,11 @@ initTox runio opts ssvar keysdb mbxmpp invc = case porttox opts of
1581 -- 1581 --
1582 -- > a +dhtkey KWoEx1XQHrluIoW.3nK6BFb6XCebKWr3nDDt3V7CcoJ 1582 -- > a +dhtkey KWoEx1XQHrluIoW.3nK6BFb6XCebKWr3nDDt3V7CcoJ
1583 , ("dhtkey", DHTAnnouncable { announceSendData = Left ("toxid", readEither, \me them addr -> do 1583 , ("dhtkey", DHTAnnouncable { announceSendData = Left ("toxid", readEither, \me them addr -> do
1584 dkey <- Tox.getContactInfo tox 1584 -- let mthem = Just ( TCP.tcpClient
1585 -- $ tcpKademliaClient
1586 -- $ toxOnionRoutes tox
1587 -- , them )
1588 dkey <- Tox.getContactInfo Nothing tox
1585 sendMessage 1589 sendMessage
1586 (Tox.toxToRoute tox) 1590 (Tox.toxToRoute tox)
1587 (Tox.AnnouncedRendezvous them addr) 1591 (Tox.AnnouncedRendezvous them addr)