Vergara_Tech/zgo-backend
Vergara_Tech/zgo-backend
2
1
Fork 0
Code Issues Pull requests Projects Releases 4 Packages Wiki Activity

Add validation status to checkuser

Browse source
This commit is contained in:
Rene Vergara 2023-05-11 14:44:45 -05:00
parent 04e0638752
commit e99db85feb
Signed by: pitmutt
GPG key ID: 65122AD495A7F5B2
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/ZGoBackend.hs
View file

@ -847,10 +847,11 @@ routes pipe config = do
get "/checkuser" $ do get "/checkuser" $ do
sess <- param "session" sess <- param "session"
user <- liftAndCatchIO $ run (findUser sess) user <- liftAndCatchIO $ run (findUser sess)
case user of case parseUserBson =<< user of
Nothing -> status noContent204 Nothing -> status noContent204
Just u -> do Just u -> do
status ok200 status ok200
Web.Scotty.json (object ["validated" .= uvalidated u])
--Get user associated with session --Get user associated with session
get "/api/user" $ do get "/api/user" $ do
sess <- param "session" sess <- param "session"