diff options
| author | LLLL Colonq <llll@colonq> | 2026-07-21 03:19:26 -0400 |
|---|---|---|
| committer | LLLL Colonq <llll@colonq> | 2026-07-31 19:05:12 -0400 |
| commit | 7ca78c47c78db985be6aad1b8a971ed3417bdf02 (patch) | |
| tree | 73ab10bbbf0f2965e7b5567d0b6263a4f6821375 | |
| parent | 094d875acbf873b0ed587bc1c688850ceaa51e97 (diff) | |
web: Actually, don't make them consumable
| -rw-r--r-- | fig-web/src/Fig/Web/Module/Claim.hs | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/fig-web/src/Fig/Web/Module/Claim.hs b/fig-web/src/Fig/Web/Module/Claim.hs index eb84569..844b707 100644 --- a/fig-web/src/Fig/Web/Module/Claim.hs +++ b/fig-web/src/Fig/Web/Module/Claim.hs @@ -11,13 +11,16 @@ import qualified Fig.Utils.DB as DB secure :: SecureModule secure a = do - onPost "/api/claim/:code" $ authed a \creds -> do + onGet "/api/claim/:code" $ authed a \creds -> do code <- pathParam "code" DB.run a.db (DB.hget "claim:codes" code) >>= \case - Nothing -> log $ "user " <> creds.user <> " tried invalid badge claim code: " <> decodeUtf8 code + Nothing -> do + log $ "user " <> creds.user <> " tried invalid badge claim code: " <> decodeUtf8 code + status status400 + respondText "invalid claim code" Just badge -> do log $ "user " <> creds.user <> " redeemed valid badge claim code: " <> decodeUtf8 code let bstid = encodeUtf8 creds.twitchId DB.run a.db do - DB.hdel "claim:codes" code DB.sadd ("user:badges:" <> bstid) [badge] + redirect $ "https://api.colonq.computer/charsheet#" <> creds.twitchId |