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 Data.Maybe (fromJust)
|
||||
|
||||
import Utils.Avs
|
||||
|
||||
-- Import all relevant handler modules here.
|
||||
@ -171,8 +169,6 @@ import Servant.API
|
||||
import Servant.Client
|
||||
import Network.HTTP.Client.TLS (mkManagerSettings)
|
||||
|
||||
import Auth.OAuth2
|
||||
|
||||
|
||||
-- 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
|
||||
@ -360,11 +356,11 @@ makeFoundation appSettings''@AppSettings{..} = do
|
||||
-- let mArgs = (,) <$> mID <*> mSecret
|
||||
-- guard $ isJust mArgs
|
||||
-- return . uncurry p $ fromJust mArgs
|
||||
tenantID = case appUserAuthConf of
|
||||
UserAuthConfSingleSource (AuthSourceConfAzureAdV2 AzureConf{..})
|
||||
-> tshow azureConfTenantId
|
||||
_other
|
||||
-> error "Tenant ID missing!"
|
||||
-- tenantID = case appUserAuthConf of
|
||||
-- UserAuthConfSingleSource (AuthSourceConfAzureAdV2 AzureConf{..})
|
||||
-- -> tshow azureConfTenantId
|
||||
-- _other
|
||||
-- -> error "Tenant ID missing!"
|
||||
oauth2Plugins
|
||||
| UserAuthConfSingleSource (AuthSourceConfAzureAdV2 AzureConf{..}) <- appUserAuthConf
|
||||
= singleton $ oauth2AzureADScoped (Set.toList azureConfScopes) (tshow azureConfClientId) azureConfClientSecret
|
||||
|
||||
Loading…
Reference in New Issue
Block a user