diff options
| author | LLLL Colonq <llll@colonq> | 2025-06-01 19:22:00 -0400 |
|---|---|---|
| committer | LLLL Colonq <llll@colonq> | 2025-06-01 19:22:00 -0400 |
| commit | ceba9d63df4ed5f66b4978a95bffcc90c55fc62c (patch) | |
| tree | d8f99270876045bb86acb2eedb4a2b4ce991eb7d /fig-web/src/Fig/Web/Module/Redeem.hs | |
| parent | 9a95ba1fa39102d0cd3db4da8c041593bfa3e776 (diff) | |
fig-web: Make the thing actually build
Diffstat (limited to 'fig-web/src/Fig/Web/Module/Redeem.hs')
| -rw-r--r-- | fig-web/src/Fig/Web/Module/Redeem.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/fig-web/src/Fig/Web/Module/Redeem.hs b/fig-web/src/Fig/Web/Module/Redeem.hs index fd174f6..1b5fbaa 100644 --- a/fig-web/src/Fig/Web/Module/Redeem.hs +++ b/fig-web/src/Fig/Web/Module/Redeem.hs @@ -9,12 +9,13 @@ import qualified Data.Text as Text import Fig.Web.Utils import Fig.Web.Types +import Fig.Web.Auth secure :: SecureModule secure a = do onGet "/api/redeeminfo" do respondText "hiiiiiii" - onPost "/api/redeem" $ authed \creds -> do + onPost "/api/redeem" $ authed a \creds -> do name <- formParam "name" input <- formParamMaybe "input" log $ creds.user <> " redeemed: " <> name |