ry
/
datarekisteri
10
0
Fork 0
Code Issues 10 Pull Requests Packages Projects Releases Wiki Activity

Allow querying for a Token's owner

This commit is contained in:
Saku Laesvuori 2024-01-31 14:48:56 +02:00
parent e4dc6e3a95
commit c73f94bcd9
Signed by: slaesvuo
GPG Key ID: 257D284A2A1D3A32
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
backend/src/Datarekisteri/Backend/API.hs
View File

@ -255,6 +255,7 @@ data Token m = Token
, issued :: m Time , issued :: m Time
, expires :: m (Maybe Time) , expires :: m (Maybe Time)
, permissions :: m [ScopePermission] , permissions :: m [ScopePermission]
, owner :: m (User m)
} deriving (Generic, GQLType) } deriving (Generic, GQLType)
data Query m = Query data Query m = Query
@ -304,7 +305,7 @@ dbPGPKeyToPGPKey DBPGPKey {..} = PGPKey
, comment = dbPGPKeyComment , comment = dbPGPKeyComment
} }
dbTokenToToken :: Monad m => DBToken m -> Token m dbTokenToToken :: (MonadPermissions m, MonadError GQLError m) => DBToken m -> Token m
dbTokenToToken DBToken {..} = Token dbTokenToToken DBToken {..} = Token
{ id = dbTokenId { id = dbTokenId
, name = dbTokenName , name = dbTokenName
@ -313,6 +314,7 @@ dbTokenToToken DBToken {..} = Token
, issued = dbTokenIssued , issued = dbTokenIssued
, expires = dbTokenExpires , expires = dbTokenExpires
, permissions = fromPermissions <$> dbTokenPermissions , permissions = fromPermissions <$> dbTokenPermissions
, owner = dbUserToUser <$> dbTokenUser
} }
inputPermissionsToPermissions :: [InputScopePermission] -> Permissions inputPermissionsToPermissions :: [InputScopePermission] -> Permissions

1
frontend/schema.gql
View File

@ -49,6 +49,7 @@ type Token {
issued: Time! issued: Time!
expires: Time expires: Time
permissions: [ScopePermission!]! permissions: [ScopePermission!]!
owner: User!
} }
type User { type User {