From 2097ed375db2dda1406043720ec366fdfc7be0fc Mon Sep 17 00:00:00 2001 From: LLLL Colonq Date: Mon, 13 Jan 2025 19:31:40 -0500 Subject: Add /api/info endpoint --- fig-web/src/Fig/Web/Secure.hs | 9 +++++++++ 1 file changed, 9 insertions(+) (limited to 'fig-web/src/Fig') 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" -- cgit v1.2.3