From 04162a97a5b25e60dcf2dfbb651654003eb8a96d Mon Sep 17 00:00:00 2001 From: LLLL Colonq Date: Tue, 21 Jul 2026 00:43:11 -0400 Subject: web: Claimable badge codes --- fig-web/src/Fig/Web/Module/Claim.hs | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) create mode 100644 fig-web/src/Fig/Web/Module/Claim.hs (limited to 'fig-web/src') diff --git a/fig-web/src/Fig/Web/Module/Claim.hs b/fig-web/src/Fig/Web/Module/Claim.hs new file mode 100644 index 0000000..507c622 --- /dev/null +++ b/fig-web/src/Fig/Web/Module/Claim.hs @@ -0,0 +1,22 @@ +module Fig.Web.Module.ShindigsSorting + ( secure + ) where + +import Fig.Prelude + +import Fig.Web.Utils +import Fig.Web.Types +import Fig.Web.Auth +import qualified Fig.Utils.DB as DB + +secure :: SecureModule +secure a = do + onPost "/api/claim/:code" $ authed a \creds -> do + code <- pathParam "code" + DB.run a.db (DB.hget code "claim:codes") >>= \case + Nothing -> log $ "user " <> creds.user <> " tried invalid badge claim code: " <> decodeUtf8 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.sadd ("user:badges:" <> bstid) [badge] -- cgit v1.3.1