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, 1 insertions, 5 deletions
diff --git a/dht/examples/dhtd.hs b/dht/examples/dhtd.hs
index 5bf9296e..f4d04761 100644
--- a/dht/examples/dhtd.hs
+++ b/dht/examples/dhtd.hs
@@ -1589,11 +1589,7 @@ initTox runio opts ssvar keysdb mbxmpp invc = case porttox opts of
1589 -- 1589 --
1590 -- > a +dhtkey KWoEx1XQHrluIoW.3nK6BFb6XCebKWr3nDDt3V7CcoJ 1590 -- > a +dhtkey KWoEx1XQHrluIoW.3nK6BFb6XCebKWr3nDDt3V7CcoJ
1591 , ("dhtkey", DHTAnnouncable { announceSendData = Left ("toxid", readEither, \me them addr -> do 1591 , ("dhtkey", DHTAnnouncable { announceSendData = Left ("toxid", readEither, \me them addr -> do
1592 -- let mthem = Just ( TCP.tcpClient 1592 dkey <- Tox.getContactInfo tox
1593 -- $ tcpKademliaClient
1594 -- $ toxOnionRoutes tox
1595 -- , them )
1596 dkey <- Tox.getContactInfo Nothing tox
1597 sendMessage 1593 sendMessage
1598 (Tox.toxToRoute tox) 1594 (Tox.toxToRoute tox)
1599 (Tox.AnnouncedRendezvous them addr) 1595 (Tox.AnnouncedRendezvous them addr)