summaryrefslogtreecommitdiff
path: root/examples/dhtd.hs
diff options
context:
space:
mode:
Diffstat (limited to 'examples/dhtd.hs')
-rw-r--r--examples/dhtd.hs2
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
1421vShowMe :: Tox.ViewSnapshot -> Int -> B.ByteString 1421vShowMe :: Tox.ViewSnapshot -> Int -> B.ByteString