diff options
Diffstat (limited to 'dht/src/Network/Tox/TCP.hs')
-rw-r--r-- | dht/src/Network/Tox/TCP.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/dht/src/Network/Tox/TCP.hs b/dht/src/Network/Tox/TCP.hs index a89dbced..1da302b6 100644 --- a/dht/src/Network/Tox/TCP.hs +++ b/dht/src/Network/Tox/TCP.hs | |||
@@ -423,6 +423,11 @@ newClient crypto store load lookupSender getRoute = do | |||
423 | data ViaRelay = ViaRelay (Maybe ConId) UDP.NodeId NodeInfo | 423 | data ViaRelay = ViaRelay (Maybe ConId) UDP.NodeId NodeInfo |
424 | deriving (Eq,Ord,Show) | 424 | deriving (Eq,Ord,Show) |
425 | 425 | ||
426 | showViaRelay :: ViaRelay -> String | ||
427 | showViaRelay (ViaRelay mcon nid tcp) = | ||
428 | "TCP:" ++ maybe "(oob)" (\(ConId con) -> "(" ++ show con ++ ")") mcon | ||
429 | ++ show nid ++ "@@" ++ show (nodeAddr tcp) | ||
430 | |||
426 | partitionRelay :: TransportA err NodeInfo (SessionData,RelayPacket) (Bool,RelayPacket) | 431 | partitionRelay :: TransportA err NodeInfo (SessionData,RelayPacket) (Bool,RelayPacket) |
427 | -> IO ( Transport err ViaRelay ByteString | 432 | -> IO ( Transport err ViaRelay ByteString |
428 | , TransportA err NodeInfo (SessionData,RelayPacket) (Bool,RelayPacket)) | 433 | , TransportA err NodeInfo (SessionData,RelayPacket) (Bool,RelayPacket)) |