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

chore(auth): oauth2MockServer->azureMockServer

Browse Source
This commit is contained in:
Sarah Vaupel 2024-02-01 20:53:55 +01:00
parent a85a5be4cd
commit ac045fdc70
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Application.hs
View File

@ -356,7 +356,7 @@ makeFoundation appSettings''@AppSettings{..} = do
return . uncurry p $ fromJust mArgs return . uncurry p $ fromJust mArgs
appAuthPlugins <- liftIO $ sequence [ appAuthPlugins <- liftIO $ sequence [
return oauth2MockServer return azureMockServer
, loadPlugin (oauth2AzureADv2 tenantID) "AZURE_ADV2" , loadPlugin (oauth2AzureADv2 tenantID) "AZURE_ADV2"
] ]

6
src/Auth/OAuth2.hs
View File

@ -10,7 +10,7 @@ module Auth.OAuth2
, azureUser, azureUser' , azureUser, azureUser'
, AzureUserException(..), _AzureUserError, _AzureUserNoResult, _AzureUserAmbiguous , AzureUserException(..), _AzureUserError, _AzureUserNoResult, _AzureUserAmbiguous
, apAzureMock , apAzureMock
, oauth2MockServer , azureMockServer
) where ) where
import qualified Data.CaseInsensitive as CI import qualified Data.CaseInsensitive as CI
@ -87,8 +87,8 @@ instance FromJSON UserID where
parseJSON = withObject "UserID" $ \o -> parseJSON = withObject "UserID" $ \o ->
UserID <$> o .: "id" UserID <$> o .: "id"
oauth2MockServer :: YesodAuth m => AuthPlugin m azureMockServer :: YesodAuth m => AuthPlugin m
oauth2MockServer = azureMockServer =
let oa = OAuth2 let oa = OAuth2
{ oauth2ClientId = "uniworx" { oauth2ClientId = "uniworx"
, oauth2ClientSecret = Just "shh" , oauth2ClientSecret = Just "shh"