diff options
| author | LLLL Colonq <llll@colonq> | 2024-11-25 23:29:57 -0500 |
|---|---|---|
| committer | LLLL Colonq <llll@colonq> | 2024-11-25 23:29:57 -0500 |
| commit | f9490ccd8d20838b2cc4fbfca1f0e64fdeb42707 (patch) | |
| tree | 397d2a766f9806d349cd33c8568292385e38ee9e | |
| parent | 49f0f20d280923eb0162048cc4f39bd920966afe (diff) | |
web: Log headers
| -rw-r--r-- | fig-web/src/Fig/Web/Secure.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/fig-web/src/Fig/Web/Secure.hs b/fig-web/src/Fig/Web/Secure.hs index 07d106b..e40204c 100644 --- a/fig-web/src/Fig/Web/Secure.hs +++ b/fig-web/src/Fig/Web/Secure.hs @@ -60,6 +60,8 @@ app cfg cmds = do Sc.get "/api/status" do Sc.text "this is the secure endpoint" Sc.post "/api/redeem" do + headers <- Sc.headers + log $ tshow headers me <- Text.toLower <$> Sc.formParam "ayem" name <- Sc.formParam "name" input <- Sc.formParamMaybe "input" |