diff options
| author | LLLL Colonq <llll@colonq> | 2025-12-17 05:01:05 -0500 |
|---|---|---|
| committer | LLLL Colonq <llll@colonq> | 2025-12-17 05:01:05 -0500 |
| commit | efdc8dc21571c3737662a9f49761961fe1068ead (patch) | |
| tree | 8427505d85eeae4dd0e5090ad1c1705c40e79a7e /fig-web/src/Fig/Web/DB.hs | |
| parent | fe4d5cfedaaa0aebde3d3ab3f1fbfff7e40d66de (diff) | |
Delete cards from Redis
Diffstat (limited to 'fig-web/src/Fig/Web/DB.hs')
| -rw-r--r-- | fig-web/src/Fig/Web/DB.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/fig-web/src/Fig/Web/DB.hs b/fig-web/src/Fig/Web/DB.hs index 4408d6b..fc3e2fb 100644 --- a/fig-web/src/Fig/Web/DB.hs +++ b/fig-web/src/Fig/Web/DB.hs @@ -43,6 +43,11 @@ hget (DB c) key hkey = liftIO $ Redis.runRedis c do v <- Redis.hget key hkey pure . join $ hush v +hdel :: MonadIO m => DB -> ByteString -> ByteString -> m () +hdel (DB c) key hkey = liftIO $ Redis.runRedis c do + _ <- Redis.hdel key [hkey] + pure () + hmset :: MonadIO m => DB -> ByteString -> [(ByteString, ByteString)] -> m () hmset (DB c) key m = liftIO $ Redis.runRedis c do void $ Redis.hmset key m |