chore(oauth2): remove unused imports and defs

This commit is contained in:
Sarah Vaupel 2024-03-21 14:14:33 +01:00
parent 619c5975aa
commit 663ad01740

View File

@ -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