Show address utilities: showViaRelay and summarizeNodeInfo.

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
 data ViaRelay = ViaRelay (Maybe ConId) UDP.NodeId NodeInfo
  deriving (Eq,Ord,Show)
 
+showViaRelay :: ViaRelay -> String
+showViaRelay (ViaRelay mcon nid tcp) =
+    "TCP:" ++ maybe "(oob)" (\(ConId con) -> "(" ++ show con ++ ")") mcon
+           ++ show nid ++ "@@" ++ show (nodeAddr tcp)
+
 partitionRelay :: TransportA err NodeInfo (SessionData,RelayPacket) (Bool,RelayPacket)
                       -> IO ( Transport err ViaRelay ByteString
                             , TransportA err NodeInfo (SessionData,RelayPacket) (Bool,RelayPacket))