From 3b43f7706e0ef87edea97877d4d0192c4274cab6 Mon Sep 17 00:00:00 2001 From: James Crayne Date: Fri, 1 Jun 2018 03:54:21 +0000 Subject: msg display issues --- examples/dhtd.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'examples') diff --git a/examples/dhtd.hs b/examples/dhtd.hs index f6a838aa..fb42597e 100644 --- a/examples/dhtd.hs +++ b/examples/dhtd.hs @@ -1545,8 +1545,8 @@ vShowThem (Tox.ViewSnapshot { vTheirNick, vTheirStatus, vTheirStatusMsg, vTheirT showMsg ::(Word32, (Bool,(Tox.ViewSnapshot, InOrOut Tox.CryptoMessage))) -> B.ByteString showMsg (n,(flg,(snapshot,iocm))) = B.concat [bool " " "h " flg, showmsg' (snapshot,iocm)] where - showmsg' (snapshot,In cm) = B.concat [Tox.vNick snapshot,"> ", pshow cm] - showmsg' (snapshot,Out cm) = B.concat [utf8boldify (Tox.vNick snapshot),": ",pshow cm] + showmsg' (snapshot,In cm) = B.concat [Tox.vTheirNick snapshot,"> ", pshow cm] + showmsg' (snapshot,Out cm) = B.concat [{-utf8boldify-} (Tox.vNick snapshot),": ",pshow cm] utf8boldify s = boldify (T.decodeUtf8With E.lenientDecode s) where boldify :: T.Text -> B.ByteString -- cgit v1.2.3