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

return user data at user end point based on token id

Browse Source
This commit is contained in:
David Mosbach 2024-01-10 22:13:00 +01:00
parent 2716ccf2c0
commit c8835c1d45
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/Server.hs
View File

@ -14,7 +14,7 @@ import Control.Concurrent
import Control.Concurrent.STM (atomically) import Control.Concurrent.STM (atomically)
import Control.Concurrent.STM.TVar (newTVarIO, readTVar, modifyTVar) import Control.Concurrent.STM.TVar (newTVarIO, readTVar, modifyTVar)
import Control.Exception (bracket) import Control.Exception (bracket)
import Control.Monad (unless) import Control.Monad (unless, (>=>))
import Control.Monad.IO.Class import Control.Monad.IO.Class
import Control.Monad.Trans.Reader import Control.Monad.Trans.Reader
@ -261,12 +261,11 @@ userEndpoint = handleUserData
let jwt = fromJust . decode @JWT $ fromStrict body let jwt = fromJust . decode @JWT $ fromStrict body
-- TODO check if token grants access, then read logged in user from cookie -- TODO check if token grants access, then read logged in user from cookie
liftIO $ print jwt liftIO $ print jwt
return mempty mUser <- ask >>= liftIO . (atomically . readTVar >=> return . Map.lookup (jti jwt) . activeTokens)
-- let case mUser of
-- scopes' = map (readScope @user @userData) $ words scopes Just (u, scopes) -> return . mconcat $ map (userScope @user @userData u) scopes
-- uData = mconcat $ map (userScope @user @userData u) scopes' Nothing -> throwError $ err500 { errBody = "Unknown token" }
-- liftIO . putStrLn $ "user: " ++ show u ++ " | scopes: " ++ show (map (showScope @user @userData) scopes')
-- return uData
decodeToken :: forall user userData . UserData user userData => Text -> AuthState user -> IO (Either JwtError JwtContent) decodeToken :: forall user userData . UserData user userData => Text -> AuthState user -> IO (Either JwtError JwtContent)
decodeToken token state = do decodeToken token state = do