env: Text values without additional ""

diff --git a/Network/AMQP/Utils/Helpers.hs b/Network/AMQP/Utils/Helpers.hs
index 348cd10a80acfaefd686347218002a9d527631f3..c5ac78f53632f0051da6dd8d179490aa240c396d 100644 (file)
--- a/Network/AMQP/Utils/Helpers.hs
+++ b/Network/AMQP/Utils/Helpers.hs
@@ -245,13 +245,13 @@ printmsg h (msg, envi) anR now = do
     rkey = Just . T.unpack $ envRoutingKey envi
     messageid = fmap T.unpack $ msgID msg
     pri = fmap show $ msgPriority msg
-    mtype = fmap show $ msgType msg
-    muserid = fmap show $ msgUserID msg
-    mappid = fmap show $ msgApplicationID msg
-    mclusterid = fmap show $ msgClusterID msg
-    mreplyto = fmap show $ msgReplyTo msg
-    mcorrid = fmap show $ msgCorrelationID msg
-    mexp = fmap show $ msgExpiration msg
+    mtype = fmap T.unpack $ msgType msg
+    muserid = fmap T.unpack $ msgUserID msg
+    mappid = fmap T.unpack $ msgApplicationID msg
+    mclusterid = fmap T.unpack $ msgClusterID msg
+    mreplyto = fmap T.unpack $ msgReplyTo msg
+    mcorrid = fmap T.unpack $ msgCorrelationID msg
+    mexp = fmap T.unpack $ msgExpiration msg
     mdelivmode = fmap show $ msgDeliveryMode msg
     size = Just . show $ BL.length body
     redeliv =