From 4a23754fc6515c947e0bbac38cd0e558b701fe2f Mon Sep 17 00:00:00 2001 From: LLLL Colonq Date: Fri, 23 Feb 2024 19:30:52 -0500 Subject: Add poke API --- fig-frontend/src/Fig/Frontend/DB.hs | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) (limited to 'fig-frontend/src/Fig/Frontend/DB.hs') diff --git a/fig-frontend/src/Fig/Frontend/DB.hs b/fig-frontend/src/Fig/Frontend/DB.hs index d0641de..5ca8772 100644 --- a/fig-frontend/src/Fig/Frontend/DB.hs +++ b/fig-frontend/src/Fig/Frontend/DB.hs @@ -24,3 +24,23 @@ hget c key hkey = liftIO $ Redis.runRedis c do hvals :: MonadIO m => Redis.Connection -> ByteString -> m (Maybe [ByteString]) hvals c key = liftIO $ Redis.runRedis c do hush <$> Redis.hvals key + +sadd :: MonadIO m => Redis.Connection -> ByteString -> [ByteString] -> m () +sadd c key skeys = liftIO $ Redis.runRedis c do + _ <- Redis.sadd key skeys + pure () + +srem :: MonadIO m => Redis.Connection -> ByteString -> [ByteString] -> m () +srem c key skeys = liftIO $ Redis.runRedis c do + _ <- Redis.srem key skeys + pure () + +smembers :: MonadIO m => Redis.Connection -> ByteString -> m (Maybe [ByteString]) +smembers c key = liftIO $ Redis.runRedis c do + hush <$> Redis.smembers key + +sismember :: MonadIO m => Redis.Connection -> ByteString -> ByteString -> m Bool +sismember c key skey = liftIO $ Redis.runRedis c do + Redis.sismember key skey >>= hush >>> \case + Just x -> pure x + Nothing -> pure False -- cgit v1.2.3