Correct handling of all real-world Redis Values in multi-bulk responses.

bumptech · Apr 12, 2011 · 2554caa · 2554caa
1 parent 349d35a
commit 2554caa
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/Database/Redis/Internal.hs b/src/Database/Redis/Internal.hs
@@ -12,6 +12,7 @@ import Data.Binary.Put (runPut, Put, putLazyByteString)
 import Data.Attoparsec (Parser, parse, Result(..), takeTill, string)
 import qualified Data.Attoparsec as Atto
 
+
 -- ---------------------------------------------------------------------------
 -- Command
 -- 
@@ -96,7 +97,7 @@ bulkReply = do
 multiBulkReply :: Parser RedisValue
 multiBulkReply = do
     numParams <- readIntLine
-    args <- mapM (\_-> string "$" >> bulkReply) [1..numParams]
+    args <- mapM (\_ -> parseReply) [1..numParams]
     return $ RedisMulti args
 
 integerReply :: Parser RedisValue