diff options
| author | LLLL Colonq <llll@colonq> | 2026-08-03 21:29:22 -0400 |
|---|---|---|
| committer | LLLL Colonq <llll@colonq> | 2026-08-03 21:29:22 -0400 |
| commit | ede7ea7148cb173e24fbf70e79a259cebbf4e6e8 (patch) | |
| tree | 265375b716bfb688a60387fc81e9291fe314d13c /fig-utils/src/Fig/Utils/DB.hs | |
| parent | 7be5db06389670d4266aca1e4845fc0e20ae1ff9 (diff) | |
Diffstat (limited to 'fig-utils/src/Fig/Utils/DB.hs')
| -rw-r--r-- | fig-utils/src/Fig/Utils/DB.hs | 8 |
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 |