summaryrefslogtreecommitdiff
path: root/dht/src/Network/Tox.hs
diff options
context:
space:
mode:
Diffstat (limited to 'dht/src/Network/Tox.hs')
-rw-r--r--dht/src/Network/Tox.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/dht/src/Network/Tox.hs b/dht/src/Network/Tox.hs
index f17bad2c..f9f35ea4 100644
--- a/dht/src/Network/Tox.hs
+++ b/dht/src/Network/Tox.hs
@@ -349,7 +349,7 @@ newToxOverTransport keydb addr onNewSession (crypto,roster) udp tcp = do
349 -- TODO: Refactor so that these threads are forked when 'forkTox' is invoked. 349 -- TODO: Refactor so that these threads are forked when 'forkTox' is invoked.
350 -- This function should only initialize state. 350 -- This function should only initialize state.
351 orouter' <- forkRouteBuilder orouter 351 orouter' <- forkRouteBuilder orouter
352 $ \nid ni -> fmap (\(_,ns,_)->ns) 352 $ \nid ni -> fmap (\(_,ns,_)->ns) . resultToMaybe
353 <$> DHT.getNodes dhtclient (DHT.nodesOfInterest $ mkrouting dhtclient) nid (Multi.UDP ==> ni) 353 <$> DHT.getNodes dhtclient (DHT.nodesOfInterest $ mkrouting dhtclient) nid (Multi.UDP ==> ni)
354 354
355 toks <- do 355 toks <- do