diff options
| author | LLLL Colonq <llll@colonq> | 2025-05-27 18:16:24 -0400 |
|---|---|---|
| committer | LLLL Colonq <llll@colonq> | 2025-05-27 18:16:24 -0400 |
| commit | 457fd37332d0ba7bf1aaba8cd4ad399214441510 (patch) | |
| tree | 82994de7cea66e4ecbde358bdb3586f68e0c98aa /fig-web/src/Fig/Web/Module/Redeem.hs | |
| parent | 1f2e453d0c9f8412b9032cb4e655713ecdcf1fa3 (diff) | |
Testing in production
Diffstat (limited to 'fig-web/src/Fig/Web/Module/Redeem.hs')
| -rw-r--r-- | fig-web/src/Fig/Web/Module/Redeem.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/fig-web/src/Fig/Web/Module/Redeem.hs b/fig-web/src/Fig/Web/Module/Redeem.hs index 7dbafc0..de66d8b 100644 --- a/fig-web/src/Fig/Web/Module/Redeem.hs +++ b/fig-web/src/Fig/Web/Module/Redeem.hs @@ -15,6 +15,7 @@ secure a = do onPost "/api/redeem" $ authed \creds -> do name <- formParam "name" input <- formParamMaybe "input" + log $ creds.user <> " redeemed: " <> name liftIO . a.cmds.publish "frontend redeem incoming" . encodeUtf8 . Text.intercalate "\t" $ [ creds.user |