diff options
author | joe <joe@jerkface.net> | 2018-06-08 18:08:57 -0400 |
---|---|---|
committer | joe <joe@jerkface.net> | 2018-06-08 18:08:57 -0400 |
commit | 7db65f496b512f5a2adc7fe7d4124a777f9daa88 (patch) | |
tree | 77b542858d7ed004cfc324b679cf1b0a751ee2db | |
parent | e595ba7d94324b8a9b14e3a43560113908e09337 (diff) |
Fixed jabber hostname for simulated xmpp messages.
-rw-r--r-- | examples/dhtd.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 | |||
1415 | , Tcp.Connection pingflag xsrc xsnk ) | 1415 | , Tcp.Connection pingflag xsrc xsnk ) |
1416 | return Nothing | 1416 | return Nothing |
1417 | where | 1417 | where |
1418 | xsrc = tsrc =$= toxToXmpp (T.pack $ show them ++ ".tox") | 1418 | xsrc = tsrc =$= toxToXmpp (T.pack $ show (Tox.key2id them) ++ ".tox") |
1419 | xsnk = flushPassThrough xmppToTox =$= tsnk | 1419 | xsnk = flushPassThrough xmppToTox =$= tsnk |
1420 | 1420 | ||
1421 | vShowMe :: Tox.ViewSnapshot -> Int -> B.ByteString | 1421 | vShowMe :: Tox.ViewSnapshot -> Int -> B.ByteString |