From f9490ccd8d20838b2cc4fbfca1f0e64fdeb42707 Mon Sep 17 00:00:00 2001 From: LLLL Colonq Date: Mon, 25 Nov 2024 23:29:57 -0500 Subject: web: Log headers --- fig-web/src/Fig/Web/Secure.hs | 2 ++ 1 file changed, 2 insertions(+) (limited to 'fig-web/src') 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" -- cgit v1.2.3