chore: fix auth plugin refs

This commit is contained in:
Sarah Vaupel 2024-03-11 15:20:24 +01:00
parent 5662a2d1f1
commit 07dd91665c

View File

@ -23,7 +23,6 @@ import qualified Yesod.Core.Unsafe as Unsafe
import qualified Yesod.Auth.Message as Auth
import Utils.Form
import Auth.OAuth2 (apAzure, apAzureMock)
import Auth.LDAP
import Auth.PWHash
import Auth.Dummy
@ -142,7 +141,7 @@ instance YesodAuth UniWorX where
AppSettings{..} <- getsYesod appSettings'
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
PluginR _ p -> p
_ -> error "Unexpected OAuth2 AuthRoute"