From: Frank Doepper <github@woffs.de>
Date: Thu, 11 Mar 2021 10:03:11 +0000 (+0100)
Subject: env: Text values without additional ""
X-Git-Tag: 0.6.1.0~1
X-Git-Url: https://woffs.de/git/fd/haskell-amqp-utils.git/commitdiff_plain/3ef1576021471303ce26c922e367f7f896c44155

env: Text values without additional ""
---

diff --git a/Network/AMQP/Utils/Helpers.hs b/Network/AMQP/Utils/Helpers.hs
index 348cd10..c5ac78f 100644
--- 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 =