diff options
Diffstat (limited to 'dht/examples/dhtd.hs')
-rw-r--r-- | dht/examples/dhtd.hs | 3 |
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 | |||
1477 | initTox :: (IO () -> STM ()) | 1476 | initTox :: (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 |