diff options
Diffstat (limited to 'fig-web/src/Fig')
| -rw-r--r-- | fig-web/src/Fig/Web/Secure.hs | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/fig-web/src/Fig/Web/Secure.hs b/fig-web/src/Fig/Web/Secure.hs index cac0376..2f416da 100644 --- a/fig-web/src/Fig/Web/Secure.hs +++ b/fig-web/src/Fig/Web/Secure.hs @@ -61,6 +61,15 @@ app cfg cmds = do Sc.text "this is the secure endpoint" Sc.get "/api/status" do Sc.text "this is the secure endpoint" + Sc.get "/api/info" do + muser <- Sc.header "Remote-User" + memail <- Sc.header "Remote-Email" + case (muser, memail) of + (Just user, Just email) -> do + Sc.text $ user <> " " <> email + _else -> do + Sc.status status401 + Sc.text "you're not logged in buddy" Sc.post "/api/redeem" do muser <- Sc.header "Remote-User" memail <- Sc.header "Remote-Email" |