Formatting for ->cli

wallrat · May 15, 2013 · 96ff0da · 96ff0da
1 parent e804ed9
commit 96ff0da
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/labs/redis/core.clj b/src/labs/redis/core.clj
@@ -93,11 +93,11 @@
              StatusReply (->str @r)
              ErrorReply (str "(error) " (value r))
              MultiBulkReply (if-let [values (seq (value r))]
-                              (interpose "\n" (map #(str "(" %1 ") " (->str %2))
+                              (interpose "\n" (map #(str "(" %1 ") " (->cli %2))
                                                    (iterate inc 0)
                                                    values))
                               "(empty list or set)")
-             IntegerReply (str "(integer)" (value r))
+             IntegerReply (str "(integer) " (value r))
              (->str r)))))
 
 ;; low level redis protocol fns