summaryrefslogtreecommitdiff
path: root/dht/src/Network/Tox.hs
diff options
context:
space:
mode:
authorJoe Crayne <joe@jerkface.net>2019-12-14 03:09:12 -0500
committerJoe Crayne <joe@jerkface.net>2020-01-01 23:26:05 -0500
commit8c04d9cca70241bebe4b94b779fe7bbfe6140f51 (patch)
treeb9cfd6956feb2180e7eee560d065a3cf132a91f8 /dht/src/Network/Tox.hs
parentb3dedb534768756c74448ed4066184e28a539c52 (diff)
Tox.DHT.Transport: polymorphic address type.
Diffstat (limited to 'dht/src/Network/Tox.hs')
-rw-r--r--dht/src/Network/Tox.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/dht/src/Network/Tox.hs b/dht/src/Network/Tox.hs
index 4b66cfc8..5d27f34f 100644
--- a/dht/src/Network/Tox.hs
+++ b/dht/src/Network/Tox.hs
@@ -351,7 +351,7 @@ newToxOverTransport keydb addr onNewSession (crypto,roster) udp tcp = do
351 (fromMaybe (\_ _ -> return ()) tcp) 351 (fromMaybe (\_ _ -> return ()) tcp)
352 sessions <- initSessions (sendMessage cryptonet) 352 sessions <- initSessions (sendMessage cryptonet)
353 353
354 let dhtnet0 = layerTransportM (DHT.decrypt crypto) (DHT.encrypt crypto) dhtcrypt 354 let dhtnet0 = layerTransportM (DHT.decrypt crypto nodeId) (DHT.encrypt crypto nodeId) dhtcrypt
355 tbl4 = DHT.routing4 $ mkrouting (error "missing client") 355 tbl4 = DHT.routing4 $ mkrouting (error "missing client")
356 tbl6 = DHT.routing6 $ mkrouting (error "missing client") 356 tbl6 = DHT.routing6 $ mkrouting (error "missing client")
357 updateOnion bkts tr = hookBucketList DHT.toxSpace bkts orouter (trampolinesUDP orouter) tr 357 updateOnion bkts tr = hookBucketList DHT.toxSpace bkts orouter (trampolinesUDP orouter) tr