summaryrefslogtreecommitdiff
path: root/dht/src/Network/Tox/TCP.hs
diff options
context:
space:
mode:
authorJoe Crayne <joe@jerkface.net>2020-01-10 02:51:51 -0500
committerJoe Crayne <joe@jerkface.net>2020-01-10 02:51:51 -0500
commit8df4213da5b8ff9faff6194a06bd2c9c00dbad16 (patch)
tree53b234d79175a28a0b36aae11a34a5b395df2376 /dht/src/Network/Tox/TCP.hs
parent8ddaf16880b3dcc8cb30a36c46c7edd1f9fe4b3c (diff)
First successful TCP relay mediated chat link!
Diffstat (limited to 'dht/src/Network/Tox/TCP.hs')
-rw-r--r--dht/src/Network/Tox/TCP.hs3
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...