From: Frank Doepper <woffs@woffs.de>
Date: Thu, 2 Sep 2021 15:16:37 +0000 (+0200)
Subject: fix maybe empty
X-Git-Url: https://woffs.de/git/fd/haskell-amqp-utils.git/commitdiff_plain/ec0a69b8d7a2ddf013dedc71952ebf3dc1277cf2

fix maybe empty
---

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