diff options
Diffstat (limited to 'dht/src/Network/Tox.hs')
-rw-r--r-- | dht/src/Network/Tox.hs | 2 |
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 |