1 files changed, 5 insertions, 1 deletions

diff --git a/dht/src/Data/Tox/DHT/Multi.hs b/dht/src/Data/Tox/DHT/Multi.hs
index 4067ab46..378a46bc 100644
--- a/dht/src/Data/Tox/DHT/Multi.hs
+++ b/dht/src/Data/Tox/DHT/Multi.hs
@@ -14,7 +14,7 @@ import qualified Network.Tox.TCP.NodeId as TCP
 import Data.Tox.Onion (OnionDestination,RouteId)
 import Data.Tox.Relay hiding (NodeInfo)
 import Network.Address as SockAddr (canonize)
-import Network.Tox.TCP as TCP (ViaRelay(..), tcpConnectionRequest_)
+import Network.Tox.TCP as TCP (ViaRelay(..), tcpConnectionRequest_, showViaRelay)
 import Network.QueryResponse as QR (Tagged(..), Client)
 
 import Data.Dependent.Sum
@@ -128,6 +128,10 @@ nodeId :: DSum T Identity -> NodeId
 nodeId (UDP :=> Identity ni                ) = UDP.nodeId ni
 nodeId (TCP :=> Identity (ViaRelay _ nid _)) = nid
 
+summarizeNodeInfo :: NodeInfo -> String
+summarizeNodeInfo (UDP :=> Identity ni      ) = show ni
+summarizeNodeInfo (TCP :=> Identity viarelay) = showViaRelay viarelay
+
 relayNodeId :: TCP.ViaRelay -> UDP.NodeId
 relayNodeId (ViaRelay _ nid _) = nid