From b37774ae9c7911b4a3fa4509c5548356e936f58f Mon Sep 17 00:00:00 2001
From: Frank Doepper <woffs@woffs.de>
Date: Mon, 8 Jul 2024 21:16:01 +0200
Subject: [PATCH] print heartbeat parameter

---
 Network/AMQP/Utils/Connection.hs | 1 +
 1 file changed, 1 insertion(+)

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 =
-- 
2.39.5