Merge pull request informatikr#218 from informatikr/issue-217

Fixes decoding of the empty result in xautoclaim request
SiriusCourses · Nov 22, 2023 · 1155945 · 1155945
2 parents 1e7fbf4 + 6d04fad
commit 1155945
Showing 1 changed file with 7 additions and 0 deletions.
diff --git 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.