diff options
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 |