chore: fix auth plugin refs
This commit is contained in:
parent
5662a2d1f1
commit
07dd91665c
@ -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"
|
||||
|
||||
Reference in New Issue
Block a user