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

chore(oauth2): fix !develop syntax contd

Browse Source
This commit is contained in:
Sarah Vaupel 2024-03-20 18:24:39 +01:00
parent 274c86a820
commit b1cb45ac7e
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Application.hs
View File

@ -363,11 +363,11 @@ makeFoundation appSettings''@AppSettings{..} = do
return . uncurry p $ fromJust mArgs return . uncurry p $ fromJust mArgs
tenantID = case appUserAuthConf of tenantID = case appUserAuthConf of
UserAuthConfSingleSource (AuthSourceConfAzureAdV2 AzureConf{..}) UserAuthConfSingleSource (AuthSourceConfAzureAdV2 AzureConf{..})
-> Text.pack azureConfTenantId -> tshow azureConfTenantId
_other _other
-> error "Tenant ID missing!" -> error "Tenant ID missing!"
oauth2Plugins oauth2Plugins
| UserAuthConfSingleSource (AuthSourceConfAzureAdV2 AzureConf{..}) appUserAuthConf | UserAuthConfSingleSource (AuthSourceConfAzureAdV2 AzureConf{..}) <- appUserAuthConf
= singleton $ oauth2AzureADScoped (Set.toList azureConfScopes) azureConfClientId azureConfClientSecret = singleton $ oauth2AzureADScoped (Set.toList azureConfScopes) azureConfClientId azureConfClientSecret
| otherwise | otherwise
= mempty = mempty