fig-web/src/Fig/Web/Module/Claim.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

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
  onGet "/api/claim/:code" $ authed a \creds -> do
    code <- pathParam "code"
    DB.run a.db (DB.hget "claim:codes" code) >>= \case
      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.sadd ("user:badges:" <> bstid) [badge]
        redirect $ "https://api.colonq.computer/charsheet#" <> creds.twitchId