chore(oauth2): remove unused imports and defs
This commit is contained in:
parent
619c5975aa
commit
663ad01740
@ -125,8 +125,6 @@ import Handler.Utils.Memcached (manageMemcachedLocalInvalidations)
|
|||||||
|
|
||||||
import qualified System.Clock as Clock
|
import qualified System.Clock as Clock
|
||||||
|
|
||||||
import Data.Maybe (fromJust)
|
|
||||||
|
|
||||||
import Utils.Avs
|
import Utils.Avs
|
||||||
|
|
||||||
-- Import all relevant handler modules here.
|
-- Import all relevant handler modules here.
|
||||||
@ -171,8 +169,6 @@ import Servant.API
|
|||||||
import Servant.Client
|
import Servant.Client
|
||||||
import Network.HTTP.Client.TLS (mkManagerSettings)
|
import Network.HTTP.Client.TLS (mkManagerSettings)
|
||||||
|
|
||||||
import Auth.OAuth2
|
|
||||||
|
|
||||||
|
|
||||||
-- This line actually creates our YesodDispatch instance. It is the second half
|
-- This line actually creates our YesodDispatch instance. It is the second half
|
||||||
-- of the call to mkYesodData which occurs in Foundation.hs. Please see the
|
-- of the call to mkYesodData which occurs in Foundation.hs. Please see the
|
||||||
@ -360,11 +356,11 @@ makeFoundation appSettings''@AppSettings{..} = do
|
|||||||
-- 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
|
||||||
_other
|
-- _other
|
||||||
-> error "Tenant ID missing!"
|
-- -> error "Tenant ID missing!"
|
||||||
oauth2Plugins
|
oauth2Plugins
|
||||||
| UserAuthConfSingleSource (AuthSourceConfAzureAdV2 AzureConf{..}) <- appUserAuthConf
|
| UserAuthConfSingleSource (AuthSourceConfAzureAdV2 AzureConf{..}) <- appUserAuthConf
|
||||||
= singleton $ oauth2AzureADScoped (Set.toList azureConfScopes) (tshow azureConfClientId) azureConfClientSecret
|
= singleton $ oauth2AzureADScoped (Set.toList azureConfScopes) (tshow azureConfClientId) azureConfClientSecret
|
||||||
|
|||||||
Reference in New Issue
Block a user