From ec0a69b8d7a2ddf013dedc71952ebf3dc1277cf2 Mon Sep 17 00:00:00 2001
From: Frank Doepper <woffs@woffs.de>
Date: Thu, 2 Sep 2021 17:16:37 +0200
Subject: [PATCH] fix maybe empty

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

diff --git a/Network/AMQP/Utils/Helpers.hs b/Network/AMQP/Utils/Helpers.hs
index 3a15412..adbbafa 100644
--- a/Network/AMQP/Utils/Helpers.hs
+++ b/Network/AMQP/Utils/Helpers.hs
@@ -57,7 +57,7 @@ instance Flexprint [String] where
 
 instance Flexprint [Maybe String] where
   flexprint = flexprint . catMaybes
-  empty = null
+  empty = null . catMaybes
 
 instance Flexprint T.Text where
   flexprint = flexprint . T.unpack
-- 
2.39.5