From 7db65f496b512f5a2adc7fe7d4124a777f9daa88 Mon Sep 17 00:00:00 2001
From: joe <joe@jerkface.net>
Date: Fri, 8 Jun 2018 18:08:57 -0400
Subject: Fixed jabber hostname for simulated xmpp messages.

---
 examples/dhtd.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'examples')

diff --git a/examples/dhtd.hs b/examples/dhtd.hs
index 67507634..fabf0661 100644
--- a/examples/dhtd.hs
+++ b/examples/dhtd.hs
@@ -1415,7 +1415,7 @@ announceToxJabberPeer them echan laddr saddr pingflag tsrc tsnk
         , Tcp.Connection pingflag xsrc xsnk )
      return Nothing
  where
-    xsrc = tsrc =$= toxToXmpp (T.pack $ show them ++ ".tox")
+    xsrc = tsrc =$= toxToXmpp (T.pack $ show (Tox.key2id them) ++ ".tox")
     xsnk = flushPassThrough xmppToTox =$= tsnk
 
 vShowMe :: Tox.ViewSnapshot -> Int -> B.ByteString
-- 
cgit v1.2.3