From 6d04fad83c111a810941fdee526c4291e5286fff Mon Sep 17 00:00:00 2001
From: Alexander Vershilov <alexander.vershilov@sirius.online>
Date: Wed, 22 Nov 2023 13:08:40 +0100
Subject: [PATCH] Fixes decoding of the empty result in xautoclaim request

Fixes #217.
---
 src/Database/Redis/ManualCommands.hs | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/src/Database/Redis/ManualCommands.hs b/src/Database/Redis/ManualCommands.hs
index 37999cef..f7c2e08d 100644
--- a/src/Database/Redis/ManualCommands.hs
+++ b/src/Database/Redis/ManualCommands.hs
@@ -1030,6 +1030,13 @@ instance RedisResult a => RedisResult (XAutoclaimResult a) where
             xAutoclaimClaimedMessages <- decode claimedMsg
             xAutoclaimDeletedMessages <- decode deletedMsg
             Right XAutoclaimResult{..}
+    decode (MultiBulk (Just [
+        Bulk (Just xAutoclaimResultId) ,
+        MultiBulk (Just [])
+        ])) = do
+            let xAutoclaimClaimedMessages = []
+            let xAutoclaimDeletedMessages = []
+            Right XAutoclaimResult{..}
     decode a = Left a
 
 -- | Version of the autoclaim result that contains data of the messages.