diff options
| author | LLLL Colonq <llll@colonq> | 2024-03-19 16:57:07 -0400 |
|---|---|---|
| committer | LLLL Colonq <llll@colonq> | 2024-03-19 16:57:07 -0400 |
| commit | b679cce8e0c8ca20d53b1032b15f80ebf6072617 (patch) | |
| tree | b20df3a7c513669c63bb5d7c2e2a771ab8f89ab5 | |
| parent | 46f10a872a41d54ec2397054711af369bfe92779 (diff) | |
Change redeem endpoint
| -rw-r--r-- | fig-frontend/src/Fig/Frontend.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/fig-frontend/src/Fig/Frontend.hs b/fig-frontend/src/Fig/Frontend.hs index 5f0ba10..c4ba523 100644 --- a/fig-frontend/src/Fig/Frontend.hs +++ b/fig-frontend/src/Fig/Frontend.hs @@ -54,9 +54,9 @@ app cfg cmds = do DB.get db ("user:" <> encodeUtf8 name) >>= \case Nothing -> Tw.send . Tw.status Tw.status404 $ Tw.text "user not found" Just val -> Tw.send . Tw.text $ decodeUtf8 val - , Tw.post "/api/redeem/:name" do + , Tw.post "/api/redeem" do me <- Text.toLower <$> Tw.param "ayem" - name <- Text.toLower <$> Tw.param "name" + name <- Tw.param "name" input <- Tw.paramMaybe "input" liftIO $ cmds.publish [sexp|(frontend redeem incoming)|] $ mconcat |