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.hs3
1 files changed, 1 insertions, 2 deletions
diff --git a/dht/examples/dhtd.hs b/dht/examples/dhtd.hs
index 3095e7b4..5bf9296e 100644
--- a/dht/examples/dhtd.hs
+++ b/dht/examples/dhtd.hs
@@ -1473,7 +1473,6 @@ selectManager announcer mtman tcp profile = case stripSuffix ".tox" profile of
1473 , showProgress = \(XMPPStatus stat) -> showProgress tcp stat 1473 , showProgress = \(XMPPStatus stat) -> showProgress tcp stat
1474 } 1474 }
1475 1475
1476
1477initTox :: (IO () -> STM ()) 1476initTox :: (IO () -> STM ())
1478 -> Options 1477 -> Options
1479 -> TVar (Map.Map Uniq24 AggregateSession) 1478 -> TVar (Map.Map Uniq24 AggregateSession)
@@ -1545,7 +1544,7 @@ initTox runio opts ssvar keysdb mbxmpp invc = case porttox opts of
1545 (Tox.AnnounceRequest zeros32 nid Tox.zeroID)) 1544 (Tox.AnnounceRequest zeros32 nid Tox.zeroID))
1546 , qshowR = show -- Rendezvous 1545 , qshowR = show -- Rendezvous
1547 , qshowTok = Just . show -- Nonce32 1546 , qshowTok = Just . show -- Nonce32
1548 , qbootNodes = genericBootNodes (refreshBuckets toxBkts) q 1547 , qbootNodes = atomically . nearNodes tox -- genericBootNodes (refreshBuckets toxBkts) q
1549 }) 1548 })
1550 ] 1549 ]
1551 , dhtParseId = readEither :: String -> Either String Tox.NodeId 1550 , dhtParseId = readEither :: String -> Either String Tox.NodeId