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 /examples | |
| parent | e595ba7d94324b8a9b14e3a43560113908e09337 (diff) | |
Fixed jabber hostname for simulated xmpp messages.
Diffstat (limited to 'examples')
| -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 |