fix maybe empty

diff --git a/Network/AMQP/Utils/Helpers.hs b/Network/AMQP/Utils/Helpers.hs
index 3a1541264a0fdd5f79b16d04481fabff4b9d5aae..adbbafa898641550b4ebe1cc5ed6f513581154de 100644 (file)
--- 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