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 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
1596 -- 1596 --
1597 -- > a +dhtkey KWoEx1XQHrluIoW.3nK6BFb6XCebKWr3nDDt3V7CcoJ 1597 -- > a +dhtkey KWoEx1XQHrluIoW.3nK6BFb6XCebKWr3nDDt3V7CcoJ
1598 , ("dhtkey", DHTAnnouncable { announceSendData = Left ("toxid", readEither, \me them addr -> do 1598 , ("dhtkey", DHTAnnouncable { announceSendData = Left ("toxid", readEither, \me them addr -> do
1599 dkey <- Tox.getContactInfo tox 1599 -- let mthem = Just ( TCP.tcpClient
1600 -- $ tcpKademliaClient
1601 -- $ toxOnionRoutes tox
1602 -- , them )
1603 dkey <- Tox.getContactInfo Nothing tox
1600 sendMessage 1604 sendMessage
1601 (Tox.toxToRoute tox) 1605 (Tox.toxToRoute tox)
1602 (Tox.AnnouncedRendezvous them addr) 1606 (Tox.AnnouncedRendezvous them addr)