From 3e451443ea432a0c5c3ed1f85953188529c1a754 Mon Sep 17 00:00:00 2001
From: Joe Crayne <joe@jerkface.net>
Date: Thu, 5 Jul 2018 21:47:28 -0400
Subject: Use ordinary (.tox) hostnames in JIDs from Tox peers to clients.

---
 examples/dhtd.hs | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'examples/dhtd.hs')

diff --git a/examples/dhtd.hs b/examples/dhtd.hs
index 7ed77d3a..fff7a98b 100644
--- a/examples/dhtd.hs
+++ b/examples/dhtd.hs
@@ -1565,12 +1565,11 @@ 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 (toHostname me) )
+        ( (saddr, ConnectionData (Left (Local laddr)) XMPPServer.Tox (xmppHostname me) )
         , Tcp.Connection pingflag xsrc xsnk )
      return Nothing
  where
-    toHostname k = T.pack $ show (Tox.key2id k) ++ ".tox"
-    xsrc = tsrc =$= toxToXmpp laddr me (toHostname them)
+    xsrc = tsrc =$= toxToXmpp laddr me (xmppHostname them)
     xsnk = flushPassThrough xmppToTox =$= tsnk
 
 vShowMe :: Tox.ViewSnapshot -> Int -> B.ByteString
-- 
cgit v1.2.3