Fixed ./b style build failure.

1 files changed, 4 insertions, 1 deletions

diff --git a/Presence/XMPPTypes.hs b/Presence/XMPPTypes.hs
index 7ee09189..41ce07c2 100644
--- a/Presence/XMPPTypes.hs
+++ b/Presence/XMPPTypes.hs
@@ -157,7 +157,8 @@ instance Ord Peer where
     a <= b = False
 
 instance L.Show JID where
-    showp (JID n s r ) = putBuilder . B.fromLazyByteString $ n <$++> "@" <?++> showPeer s <++?>  "/" <++$> r
+    showp (JID n s r ) = -- putBuilder . B.fromLazyByteString $ n <$++> "@" <?++> showPeer s <++?>  "/" <++$> r
+        L.putUTF8Str . L.unpack $ n <$++> "@" <?++> showPeer s <++?>  "/" <++$> r
 
 instance Prelude.Show JID where
     show jid = L.unpack $ L.show jid
@@ -267,6 +268,8 @@ data LangSpecificMessage = LangSpecificMessage {
 data Message = Message { 
                 msgTo :: JID,
                 msgFrom :: JID,
+                -- msgType
+                -- msgId
                 msgThread :: Maybe MessageThread,
                 msgLangMap :: Map S.Text (LangSpecificMessage)
                }