summaryrefslogtreecommitdiff
path: root/src/Network/Tox.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Network/Tox.hs')
-rw-r--r--src/Network/Tox.hs2
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