diff options
| -rw-r--r-- | fig-utils/src/Fig/Utils/DB.hs | 3 | ||||
| -rw-r--r-- | fig-web/src/Fig/Web/Module/User.hs | 5 |
2 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 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 diff --git a/fig-web/src/Fig/Web/Module/User.hs b/fig-web/src/Fig/Web/Module/User.hs index 550130c..5d473ff 100644 --- a/fig-web/src/Fig/Web/Module/User.hs +++ b/fig-web/src/Fig/Web/Module/User.hs @@ -128,6 +128,11 @@ public a = do respondText "username not found" Just val -> respondText val -- users + onGet "/api/users" do + let pfx = "user:stats:" + users <- DB.run a.db . DB.keys . encodeUtf8 $ pfx <> "*" + let strip x = fromMaybe x $ Text.stripPrefix pfx x + respondText . Text.unlines $ strip . decodeUtf8 <$> users onGet "/api/user/info/:uid" do -- get everything bundled together uid <- pathParam "uid" info <- getUserInfo a.db uid |