From 663ad0174090d71a5cd531717ce10d488ec1e5a9 Mon Sep 17 00:00:00 2001 From: Sarah Vaupel Date: Thu, 21 Mar 2024 14:14:33 +0100 Subject: [PATCH] chore(oauth2): remove unused imports and defs --- src/Application.hs | 14 +++++--------- 1 file changed, 5 insertions(+), 9 deletions(-) diff --git a/src/Application.hs b/src/Application.hs index 594378762..1741d239a 100644 --- a/src/Application.hs +++ b/src/Application.hs @@ -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