remaining message properties as envionment variables

diff --git a/Network/AMQP/Utils/Helpers.hs b/Network/AMQP/Utils/Helpers.hs
index 3087e4b9378ec3b4e6089928c57fcd1b6ac24e5c..348cd10a80acfaefd686347218002a9d527631f3 100644 (file)
--- a/Network/AMQP/Utils/Helpers.hs
+++ b/Network/AMQP/Utils/Helpers.hs
@@ -199,6 +199,15 @@ printmsg h (msg, envi) anR now = do
           , ("TIMESTAMP", timestamp)
           , ("PRIORITY", pri)
           , ("REDELIVERED", redeliv)
+          , ("SIZE", size)
+          , ("TYPE", mtype)
+          , ("USERID", muserid)
+          , ("APPID", mappid)
+          , ("CLUSTERID", mclusterid)
+          , ("REPLYTO", mreplyto)
+          , ("CORRID", mcorrid)
+          , ("EXPIRATION", mexp)
+          , ("DELIVERYMODE", mdelivmode)
           ] ++
         headersEnv
   return (cmdline, environment)

diff --git a/README.md b/README.md
index 0ce6028a2204c662c685770e2296afd6ba9406ec..235609f260469285ad76854cf04072febd7cf18e 100644 (file)
--- a/README.md
+++ b/README.md
@@ -247,6 +247,18 @@ variables in both modes in the callback:
     AMQP_PRIORITY
     AMQP_REDELIVERED
 
+And the remaining message properties, too:
+
+    AMQP_SIZE
+    AMQP_TYPE
+    AMQP_USERID
+    AMQP_APPID
+    AMQP_CLUSTERID
+    AMQP_REPLYTO
+    AMQP_CORRID
+    AMQP_EXPIRATION
+    AMQP_DELIVERYMODE
+
 Message headers, if any, are available as
 
     AMQP_HEADER_KEY_0