Sort redis results by score, quickfix until redis broken connections can be fixed

1 files changed, 6 insertions, 2 deletions

diff --git a/src/datalayer.clj b/src/datalayer.clj
index 6b2a466..711dc65 100644
--- a/src/datalayer.clj
+++ b/src/datalayer.clj
@@ -106,7 +106,9 @@ order by count desc limit ? offset ?")
                     (redis/zrevrange rkey 0 (dec num-popular-dumps)))
         msg-ids   (map maybe-parse-int msg-ids)]
     (if-not (empty? msg-ids)
-      (tags/fetch-dumps-by-ids msg-ids viewer-nick))))
+      (sort-by
+       #(* -1 (:count %))
+       (tags/fetch-dumps-by-ids msg-ids viewer-nick)))))
 
 
 ;;;; Redis Favscores
@@ -147,7 +149,9 @@ order by count desc limit ? offset ?")
                  (redis/with-server redis-server
                    (redis/zrevrange "hall" 0 (dec num-hall-dumps))))]
     (if-not (empty? ids)
-      (tags/fetch-dumps-by-ids ids viewer-nick))))
+      (sort-by
+       #(* -1 (:count %))
+       (tags/fetch-dumps-by-ids ids viewer-nick)))))
 
 ;;;; Message insertion