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: fix auth plugin refs

Browse Source
This commit is contained in:
Sarah Vaupel 2024-03-11 15:20:24 +01:00
parent 5662a2d1f1
commit 07dd91665c
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Foundation/Instances.hs
View File

@ -23,7 +23,6 @@ import qualified Yesod.Core.Unsafe as Unsafe
import qualified Yesod.Auth.Message as Auth import qualified Yesod.Auth.Message as Auth
import Utils.Form import Utils.Form
import Auth.OAuth2 (apAzure, apAzureMock)
import Auth.LDAP import Auth.LDAP
import Auth.PWHash import Auth.PWHash
import Auth.Dummy import Auth.Dummy
@ -142,7 +141,7 @@ instance YesodAuth UniWorX where
AppSettings{..} <- getsYesod appSettings' AppSettings{..} <- getsYesod appSettings'
when appSingleSignOn $ do when appSingleSignOn $ do
let plugin = P.head $ P.filter ((`elem` [mockPluginName, azurePluginName]) . apName) plugins let plugin = P.head $ P.filter ((`elem` [apAzureMock, apAzure]) . apName) plugins
pieces = case oauth2Url (apName plugin) of pieces = case oauth2Url (apName plugin) of
PluginR _ p -> p PluginR _ p -> p
_ -> error "Unexpected OAuth2 AuthRoute" _ -> error "Unexpected OAuth2 AuthRoute"