Add validation status to checkuser

2023-05-11 14:44:45 -05:00 · 2023-05-11 14:44:45 -05:00 · e99db85feb
commit e99db85feb
parent 04e0638752
1 changed files with 2 additions and 1 deletions
--- a/src/ZGoBackend.hs
+++ b/src/ZGoBackend.hs
@ -847,10 +847,11 @@ routes pipe config = do
  get "/checkuser" $ do
    sess <- param "session"
    user <- liftAndCatchIO $ run (findUser sess)
-    case user of
+    case parseUserBson =<< user of
      Nothing -> status noContent204
      Just u -> do
        status ok200
+        Web.Scotty.json (object ["validated" .= uvalidated u])
  --Get user associated with session
  get "/api/user" $ do
    sess <- param "session"