diff options
Diffstat (limited to 'src/Network/Tox.hs')
| -rw-r--r-- | src/Network/Tox.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/Network/Tox.hs b/src/Network/Tox.hs index efddc2a0..fcfa872f 100644 --- a/src/Network/Tox.hs +++ b/src/Network/Tox.hs | |||
| @@ -445,8 +445,7 @@ newTox keydb addr mbSessionsState suppliedDHTKey = do | |||
| 445 | let lookupClose _ = return Nothing | 445 | let lookupClose _ = return Nothing |
| 446 | 446 | ||
| 447 | mkrouting <- DHT.newRouting addr crypto updateIP updateIP | 447 | mkrouting <- DHT.newRouting addr crypto updateIP updateIP |
| 448 | let ignoreErrors _ = return () -- Set this to (dput XMisc) to debug onion route building. | 448 | orouter <- newOnionRouter $ dput XRoutes |
| 449 | orouter <- newOnionRouter ignoreErrors | ||
| 450 | (cryptonet,dhtcrypt,onioncrypt,dtacrypt,handshakes) <- toxTransport crypto orouter lookupClose udp | 449 | (cryptonet,dhtcrypt,onioncrypt,dtacrypt,handshakes) <- toxTransport crypto orouter lookupClose udp |
| 451 | 450 | ||
| 452 | let dhtnet0 = layerTransportM (DHT.decrypt crypto) (DHT.encrypt crypto) dhtcrypt | 451 | let dhtnet0 = layerTransportM (DHT.decrypt crypto) (DHT.encrypt crypto) dhtcrypt |