uniworx/oauth2-mock-server
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

removed debuging print

Browse Source
This commit is contained in:
David Mosbach 2024-01-31 13:41:59 +00:00
parent 101cf0ca99
commit 6fc2d62157
1 changed files with 0 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/Server.hs
View File

@ -300,7 +300,6 @@ userListEndpoint = handleUserData
where where
handleUserData :: Text -> Text -> AuthHandler user [userData] handleUserData :: Text -> Text -> AuthHandler user [userData]
handleUserData jwtw userID = do handleUserData jwtw userID = do
liftIO $ putStrLn "\nHOEHOEHOEHOEHOEHOHEHJBSDKFJBSDKGHBSDKGHBK\a\n"
mAdmin <- verifyToken @user @userData jwtw mAdmin <- verifyToken @user @userData jwtw
unless (isJust mAdmin) . throwError $ err500 { errBody = "Unknown token" } unless (isJust mAdmin) . throwError $ err500 { errBody = "Unknown token" }
-- TODO check if this user is allowed query other users -- TODO check if this user is allowed query other users