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

chore(oauth2): remove unused loadPlugin function

Browse Source
This commit is contained in:
Sarah Vaupel 2024-03-21 09:16:43 +01:00
parent 0599ec2512
commit 795c707a1f
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/Application.hs
View File

@ -355,12 +355,12 @@ makeFoundation appSettings''@AppSettings{..} = do
] ]
#else #else
let -- Auth Plugins let -- Auth Plugins
loadPlugin p prefix = do -- Loads given YesodAuthPlugin -- loadPlugin p prefix = do -- Loads given YesodAuthPlugin
mID <- fmap Text.pack <$> appUserAuthConf ^? _UserAuthConfSingleSource . _AuthSourceConfAzureAdV2 . _azureConfClientId -- mID <- fmap Text.pack <$> appUserAuthConf ^? _UserAuthConfSingleSource . _AuthSourceConfAzureAdV2 . _azureConfClientId
mSecret <- fmap Text.pack <$> appUserAuthConf ^? _UserAuthConfSingleSource . _AuthSourceConfAzureAdV2 . _azureConfClientSecret -- mSecret <- fmap Text.pack <$> appUserAuthConf ^? _UserAuthConfSingleSource . _AuthSourceConfAzureAdV2 . _azureConfClientSecret
let mArgs = (,) <$> mID <*> mSecret -- let mArgs = (,) <$> mID <*> mSecret
guard $ isJust mArgs -- guard $ isJust mArgs
return . uncurry p $ fromJust mArgs -- return . uncurry p $ fromJust mArgs
tenantID = case appUserAuthConf of tenantID = case appUserAuthConf of
UserAuthConfSingleSource (AuthSourceConfAzureAdV2 AzureConf{..}) UserAuthConfSingleSource (AuthSourceConfAzureAdV2 AzureConf{..})
-> tshow azureConfTenantId -> tshow azureConfTenantId