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 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 |