From: Frank Doepper <woffs@woffs.de>
Date: Mon, 8 Jul 2024 19:16:01 +0000 (+0200)
Subject: print heartbeat parameter
X-Git-Tag: 0.6.6.0~2
X-Git-Url: https://woffs.de/git/fd/haskell-amqp-utils.git/commitdiff_plain/b37774ae9c7911b4a3fa4509c5548356e936f58f

print heartbeat parameter
---

diff --git a/Network/AMQP/Utils/Connection.hs b/Network/AMQP/Utils/Connection.hs
index 473d7f1..99e808b 100644
--- a/Network/AMQP/Utils/Connection.hs
+++ b/Network/AMQP/Utils/Connection.hs
@@ -25,6 +25,7 @@ connect args = do
   printparam "port" $ portnumber args
   printparam "vhost" $ vHost args
   printparam "connection_name" $ connectionName args
+  printparam "heartbeat" $ liftA2 (\ n m -> show n ++ m) (heartBeat args) (Just " s")
   printparam "connect timeout" $ [show (connect_timeout args), "s"]
   globalCertificateStore <- getSystemCertificateStore
   let myTLS =