fig-web: Add leaderboardsHEADmaster

1 files changed, 8 insertions, 0 deletions

diff --git a/fig-utils/src/Fig/Utils/DB.hs b/fig-utils/src/Fig/Utils/DB.hs
index e8d4955..16d7c0f 100644
--- a/fig-utils/src/Fig/Utils/DB.hs
+++ b/fig-utils/src/Fig/Utils/DB.hs
@@ -113,3 +113,11 @@ llen key = do
 lindex :: ByteString -> Integer -> Redis.Redis (Maybe ByteString)
 lindex key idx = do
   join . hush <$> Redis.lindex key idx
+
+zadd :: ByteString -> [(Double, ByteString)] -> Redis.Redis ()
+zadd key vals = do
+  void $ Redis.zadd key vals
+
+zrevrange :: ByteString -> Integer -> Integer -> Redis.Redis [(ByteString, Double)]
+zrevrange key start end = do
+  fromMaybe [] . hush <$> Redis.zrevrangeWithscores key start end