diff options
Diffstat (limited to 'fig-web/src/Fig/Web/Secure.hs')
| -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" |