diff options
Diffstat (limited to 'dht/src/Network/Tox/TCP.hs')
-rw-r--r-- | dht/src/Network/Tox/TCP.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/dht/src/Network/Tox/TCP.hs b/dht/src/Network/Tox/TCP.hs index a37c0310..cb0f0a1b 100644 --- a/dht/src/Network/Tox/TCP.hs +++ b/dht/src/Network/Tox/TCP.hs | |||
@@ -456,7 +456,8 @@ partitionOnion crypto lookupSender getRoute tr = partitionTransportM parse encod | |||
456 | case m of | 456 | case m of |
457 | Nothing -> return $ Right pass | 457 | Nothing -> return $ Right pass |
458 | Just od -> return $ Left (msg, od) | 458 | Just od -> return $ Left (msg, od) |
459 | parse ((_,OnionPacketResponse msg@(OnionToRouteResponse asym)), nodeA) = | 459 | parse ((_,OnionPacketResponse msg@(OnionToRouteResponse asym)), nodeA) = do |
460 | -- dput XOnion $ "TCP data-to-route response from " ++ show (UDP.key2id $ senderKey asym) | ||
460 | return $ | 461 | return $ |
461 | let Right ni = UDP.nodeInfo (UDP.key2id $ senderKey asym) nullAddress4 | 462 | let Right ni = UDP.nodeInfo (UDP.key2id $ senderKey asym) nullAddress4 |
462 | -- -- We have this information, but currently, we're discarding it... | 463 | -- -- We have this information, but currently, we're discarding it... |