diff options
| author | Scott Ostler <scottbot9000@gmail.com> | 2011-02-23 00:06:37 -0500 |
|---|---|---|
| committer | Scott Ostler <scottbot9000@gmail.com> | 2011-02-23 00:06:37 -0500 |
| commit | 9da44d38f552388680c47ad592edeb2b114d67d4 (patch) | |
| tree | 4700f141f408c9dfa11072df635a89d631032930 /src/datalayer.clj | |
| parent | 21ec2e9244ef0787908aede4bf4cb2e94bcf395d (diff) | |
add selector for frontpage
Diffstat (limited to 'src/datalayer.clj')
| -rw-r--r-- | src/datalayer.clj | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/datalayer.clj b/src/datalayer.clj index 56d5a60..72b86cd 100644 --- a/src/datalayer.clj +++ b/src/datalayer.clj @@ -142,8 +142,8 @@ WHERE u.nick = ANY(?)" (def redis-favscores-key "favscores") -(defn redis-daily-hall-key [date-str] - (str "hall:daily:" date-str)) +(defn redis-daily-hall-key [date] + (str "hall:daily:" (format-yyyymmdd date))) (defn fetch-redis-zset [key symbol offset num] (for [t (with-jedis @@ -155,8 +155,8 @@ WHERE u.nick = ANY(?)" {symbol (.getElement t) :score (int (.getScore t))})) -(defn fetch-redis-daily-hall [date-str offset num user-id] - (let [msg-ids (fetch-redis-zset (redis-daily-hall-key date-str) +(defn fetch-redis-daily-hall [date offset num user-id] + (let [msg-ids (fetch-redis-zset (redis-daily-hall-key date) :message_id offset num) |