Added tox-id annotation to tox peer connections.

1 files changed, 3 insertions, 2 deletions

diff --git a/examples/dhtd.hs b/examples/dhtd.hs
index 7aa5cd2c..3d6b5f7b 100644
--- a/examples/dhtd.hs
+++ b/examples/dhtd.hs
@@ -1547,11 +1547,12 @@ announceToxJabberPeer :: PublicKey  -- ^ This node's long-term user key.
 announceToxJabberPeer me them echan laddr saddr pingflag tsrc tsnk
     = do
      atomically $ writeTChan echan
-        ( (saddr, ConnectionData (Left (Local laddr)) XMPPServer.Tox )
+        ( (saddr, ConnectionData (Left (Local laddr)) XMPPServer.Tox (toHostname me) )
         , Tcp.Connection pingflag xsrc xsnk )
      return Nothing
  where
-    xsrc = tsrc =$= toxToXmpp laddr me (T.pack $ show (Tox.key2id them) ++ ".tox")
+    toHostname k = T.pack $ show (Tox.key2id k) ++ ".tox"
+    xsrc = tsrc =$= toxToXmpp laddr me (toHostname them)
     xsnk = flushPassThrough xmppToTox =$= tsnk
 
 vShowMe :: Tox.ViewSnapshot -> Int -> B.ByteString