diff options
| author | LLLL Colonq <llll@colonq> | 2026-05-03 14:47:45 -0400 |
|---|---|---|
| committer | LLLL Colonq <llll@colonq> | 2026-05-03 14:47:45 -0400 |
| commit | caa98b19119cf393cbc6a4aba1b46812c893cdec (patch) | |
| tree | 47c5e6229d4b4887ae02b8c9c0d8874cb8084265 /fig-utils | |
| parent | 91cf14c9dabecf5e07b310c5d12ad702d570b14f (diff) | |
Add endpoint to query all users
Diffstat (limited to 'fig-utils')
| -rw-r--r-- | fig-utils/src/Fig/Utils/DB.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/fig-utils/src/Fig/Utils/DB.hs b/fig-utils/src/Fig/Utils/DB.hs index 88a2f37..e8d4955 100644 --- a/fig-utils/src/Fig/Utils/DB.hs +++ b/fig-utils/src/Fig/Utils/DB.hs @@ -18,6 +18,9 @@ connect host = liftIO $ DB <$> Redis.checkedConnect Redis.defaultConnectInfo run :: MonadIO m => DB -> Redis.Redis a -> m a run (DB c) f = liftIO $ Redis.runRedis c f +keys :: ByteString -> Redis.Redis [ByteString] +keys pat = fromMaybe [] . hush <$> Redis.keys pat + get :: ByteString -> Redis.Redis (Maybe ByteString) get key = do v <- Redis.get key |