From ceba9d63df4ed5f66b4978a95bffcc90c55fc62c Mon Sep 17 00:00:00 2001 From: LLLL Colonq Date: Sun, 1 Jun 2025 19:22:00 -0400 Subject: fig-web: Make the thing actually build --- fig-web/src/Fig/Web/Module/Redeem.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'fig-web/src/Fig/Web/Module/Redeem.hs') 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 -- cgit v1.2.3