diff options
Diffstat (limited to 'src/redisload.clj')
| -rwxr-xr-x | src/redisload.clj | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/redisload.clj b/src/redisload.clj index abb0252..86dac0d 100755 --- a/src/redisload.clj +++ b/src/redisload.clj @@ -75,7 +75,7 @@ WHERE userkey (redis-popular-key nick)] (redis/atomically (redis/del key) - (doseq [[msg-id score] (take (* num-popular-dumps 2) + (doseq [[msg-id score] (take (* num-popular-humps 2) sorted-msgs)] (redis/zadd userkey score msg-id))))) (println "cached popular data for" (count @popular-map) "users")) @@ -88,7 +88,7 @@ WHERE (println "cached favscores for " (count @score-map) "users")) (defn transmit-hall [] - (let [scores (take (* 2 num-hall-dumps) +(let [scores (take (* 2 num-hall-humps) (sort #(>= (second %1) (second %2)) @hall-map))] (redis/atomically (redis/del redis-hall-key) |