print heartbeat parameter

diff --git a/Network/AMQP/Utils/Connection.hs b/Network/AMQP/Utils/Connection.hs
index 473d7f1ebcf676aa1b205d8da74a1f36c576921a..99e808b901009f6888bb4be7a4d0a02a9db2065c 100644 (file)
--- 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 "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 =
   printparam "connect timeout" $ [show (connect_timeout args), "s"]
   globalCertificateStore <- getSystemCertificateStore
   let myTLS =