From 4b7d7cfe26e7322351005e36329acfac425d4819 Mon Sep 17 00:00:00 2001 From: Philipp Balzarek Date: Wed, 19 Jun 2013 15:41:49 +0200 Subject: [PATCH] fix Jid Show instance not quoting '"' and '\' --- source/Network/Xmpp/Types.hs | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/source/Network/Xmpp/Types.hs b/source/Network/Xmpp/Types.hs index d996ccc..4ee22ce 100644 --- a/source/Network/Xmpp/Types.hs +++ b/source/Network/Xmpp/Types.hs @@ -942,9 +942,7 @@ jidToTexts (Jid nd dmn res) = (nd, dmn, res) -- Produces a Jid value in the format "parseJid \"\"". instance Show Jid where - show (Jid nd dmn res) = - "parseJid \"" ++ maybe "" ((++ "@") . Text.unpack) nd ++ Text.unpack dmn ++ - maybe "" (('/' :) . Text.unpack) res ++ "\"" + show j = "parseJid " ++ show (jidToText j) -- The string must be in the format "parseJid \"\"". -- TODO: This function should produce its error values in a uniform way.