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 29591a23..af8114f4 100644
--- a/src/Network/Tox.hs
+++ b/src/Network/Tox.hs
@@ -284,7 +284,7 @@ newTox keydb addr = do
284 orouter <- newOnionRouter 284 orouter <- newOnionRouter
285 (dhtcrypt,onioncrypt,dtacrypt,cryptonet) <- toxTransport crypto orouter lookupClose udp 285 (dhtcrypt,onioncrypt,dtacrypt,cryptonet) <- toxTransport crypto orouter lookupClose udp
286 let dhtnet0 = layerTransport (DHT.decrypt crypto) (DHT.encrypt crypto) dhtcrypt 286 let dhtnet0 = layerTransport (DHT.decrypt crypto) (DHT.encrypt crypto) dhtcrypt
287 dhtclient <- newClient drg dhtnet0 DHT.classify (myAddr routing) (DHT.handlers routing) id 287 dhtclient <- newClient drg dhtnet0 DHT.classify (myAddr routing) (DHT.handlers crypto routing) id
288 $ \client net -> onInbound (DHT.updateRouting client routing orouter) net 288 $ \client net -> onInbound (DHT.updateRouting client routing orouter) net
289 289
290 orouter <- forkRouteBuilder orouter $ \nid ni -> maybe [] (\(_,ns,_)->ns) <$> DHT.getNodes dhtclient nid ni 290 orouter <- forkRouteBuilder orouter $ \nid ni -> maybe [] (\(_,ns,_)->ns) <$> DHT.getNodes dhtclient nid ni