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 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