diff options
| author | joe <joe@jerkface.net> | 2018-06-21 19:23:08 -0400 |
|---|---|---|
| committer | joe <joe@jerkface.net> | 2018-06-21 19:23:08 -0400 |
| commit | 5b6f895c3b2bda2b46e8241a91476073308fc4cf (patch) | |
| tree | 47fffdd8f3ea48a8b53600aff8f99ff01d3c4265 /examples/dhtd.hs | |
| parent | efa0cec1aaa1aad9b66f2bfccc6b70b2093364a8 (diff) | |
Send outgoing friend requests from XMPP clients.
Diffstat (limited to 'examples/dhtd.hs')
| -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 e95fa366..2b5974f1 100644 --- a/examples/dhtd.hs +++ b/examples/dhtd.hs | |||
| @@ -629,7 +629,7 @@ clientSession s@Session{..} sock cnum h = do | |||
| 629 | return $ [ maybe "none" show cp | 629 | return $ [ maybe "none" show cp |
| 630 | , maybe "" (show . Tox.key2id . Tox.dhtpk . snd) ck | 630 | , maybe "" (show . Tox.key2id . Tox.dhtpk . snd) ck |
| 631 | , maybe "" (show . snd) ca | 631 | , maybe "" (show . snd) ca |
| 632 | , maybe "" (T.unpack . T.decodeUtf8 . Tox.friendRequestText . snd) cf | 632 | , maybe "" (show . T.decodeUtf8 . Tox.friendRequestText . snd) cf |
| 633 | ] | 633 | ] |
| 634 | return $ do | 634 | return $ do |
| 635 | forM_ (HashMap.toList css) $ \(me,xss) -> do | 635 | forM_ (HashMap.toList css) $ \(me,xss) -> do |