fraport/fradrive-old
fraport/fradrive-old
Archived
3
1
Fork 0
Code Issues 65 Pull Requests 5 Actions Packages Projects Releases 197 Wiki Activity

chore(auth): oauth2User->azureUser

Browse Source
This commit is contained in:
Sarah Vaupel 2024-01-28 18:32:14 +01:00
parent aa893062f1
commit 84d7890ae4
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/Auth/OAuth2.hs
View File

@ -7,7 +7,7 @@
module Auth.OAuth2 module Auth.OAuth2
( apAzure ( apAzure
, azurePrimaryKey, azureUserPrincipalName, azureUserDisplayName, azureUserGivenName, azureUserSurname, azureUserMail, azureUserTelephone, azureUserMobile, azureUserPreferredLanguage , azurePrimaryKey, azureUserPrincipalName, azureUserDisplayName, azureUserGivenName, azureUserSurname, azureUserMail, azureUserTelephone, azureUserMobile, azureUserPreferredLanguage
, oauth2User , azureUser
, AzureUserException(..) , AzureUserException(..)
, oauth2MockServer , oauth2MockServer
, mockPluginName , mockPluginName
@ -46,13 +46,13 @@ azureUserPreferredLanguage = "preferredLanguage"
-- | User lookup in an OAuth2 database with given credentials -- | User lookup in an OAuth2 database with given credentials
oauth2User :: ( MonadUnliftIO m azureUser :: ( MonadUnliftIO m
-- , MonadThrow m -- , MonadThrow m
) )
=> AzureConf => AzureConf
-> Creds site -> Creds site
-> m [(Text, [ByteString])] -- (Either AzureUserException [(Text, [ByteString])]) -> m [(Text, [ByteString])] -- (Either AzureUserException [(Text, [ByteString])])
oauth2User _conf _creds = fmap throwLeft . liftIO . runExceptT $ do azureUser _conf _creds = fmap throwLeft . liftIO . runExceptT $ do
results <- return [] -- TODO results <- return [] -- TODO
case results of case results of
[] -> throwE AzureUserNoResult [] -> throwE AzureUserNoResult