diff options
Diffstat (limited to 'src/Network/Tox.hs')
-rw-r--r-- | src/Network/Tox.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Network/Tox.hs b/src/Network/Tox.hs index 0400f14a..6f591917 100644 --- a/src/Network/Tox.hs +++ b/src/Network/Tox.hs | |||
@@ -301,7 +301,7 @@ newTox keydb addr mbSessionsState = do | |||
301 | dhtclient <- newClient drg dhtnet0 DHT.classify (myAddr routing) (DHT.handlers crypto routing) id | 301 | dhtclient <- newClient drg dhtnet0 DHT.classify (myAddr routing) (DHT.handlers crypto routing) id |
302 | $ \client net -> onInbound (DHT.updateRouting client routing orouter) net | 302 | $ \client net -> onInbound (DHT.updateRouting client routing orouter) net |
303 | 303 | ||
304 | orouter <- forkRouteBuilder orouter $ \nid ni -> maybe [] (\(_,ns,_)->ns) <$> DHT.getNodes dhtclient nid ni | 304 | orouter <- forkRouteBuilder orouter $ \nid ni -> fmap (\(_,ns,_)->ns) <$> DHT.getNodes dhtclient nid ni |
305 | 305 | ||
306 | toks <- do | 306 | toks <- do |
307 | nil <- nullSessionTokens | 307 | nil <- nullSessionTokens |