diff options
Diffstat (limited to 'dht/src/Network/Tox.hs')
-rw-r--r-- | dht/src/Network/Tox.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/dht/src/Network/Tox.hs b/dht/src/Network/Tox.hs index 23dbfe27..1628b435 100644 --- a/dht/src/Network/Tox.hs +++ b/dht/src/Network/Tox.hs | |||
@@ -392,7 +392,7 @@ newToxOverTransport keydb addr onNewSession (crypto,roster) udp tcp = do | |||
392 | return (msg, maybe (Multi.OnionUDP ==> addr) (const $ Multi.OnionTCP ==> addr) mtcp)) | 392 | return (msg, maybe (Multi.OnionUDP ==> addr) (const $ Multi.OnionTCP ==> addr) mtcp)) |
393 | <$> mergeTransports (DMap.fromList | 393 | <$> mergeTransports (DMap.fromList |
394 | [ Multi.OnionUDP :=> ByAddress onioncryptUDP | 394 | [ Multi.OnionUDP :=> ByAddress onioncryptUDP |
395 | , Multi.OnionTCP :=> ByAddress {- $ onInbound updateOnTCP -} onioncryptTCP ]) | 395 | , Multi.OnionTCP :=> ByAddress {- onInbound updateOnTCP -} onioncryptTCP ]) |
396 | 396 | ||
397 | -- dtacrypt :: Transport String AnnouncedRendezvous (PublicKey,OnionData) | 397 | -- dtacrypt :: Transport String AnnouncedRendezvous (PublicKey,OnionData) |
398 | (dtacrypt,onioncrypt) <- partitionTransportM (Onion.parseDataToRoute crypto) (Onion.encodeDataToRoute crypto) onioncrypt | 398 | (dtacrypt,onioncrypt) <- partitionTransportM (Onion.parseDataToRoute crypto) (Onion.encodeDataToRoute crypto) onioncrypt |