From 795c707a1fb4b33ddcd6cc891990543ad085e0e3 Mon Sep 17 00:00:00 2001
From: Sarah Vaupel <sarah.vaupel@uniworx.de>
Date: Thu, 21 Mar 2024 09:16:43 +0100
Subject: [PATCH] chore(oauth2): remove unused loadPlugin function

---
 src/Application.hs | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/src/Application.hs b/src/Application.hs
index 1aee0f2e0..0c92e941c 100644
--- a/src/Application.hs
+++ b/src/Application.hs
@@ -355,12 +355,12 @@ makeFoundation appSettings''@AppSettings{..} = do
         ]
 #else
       let -- Auth Plugins
-        loadPlugin p prefix = do -- Loads given YesodAuthPlugin
-          mID <- fmap Text.pack <$> appUserAuthConf ^? _UserAuthConfSingleSource . _AuthSourceConfAzureAdV2 . _azureConfClientId
-          mSecret <- fmap Text.pack <$> appUserAuthConf ^? _UserAuthConfSingleSource . _AuthSourceConfAzureAdV2 . _azureConfClientSecret
-          let mArgs = (,) <$> mID <*> mSecret
-          guard $ isJust mArgs
-          return . uncurry p $ fromJust mArgs
+        -- loadPlugin p prefix = do -- Loads given YesodAuthPlugin
+        --   mID <- fmap Text.pack <$> appUserAuthConf ^? _UserAuthConfSingleSource . _AuthSourceConfAzureAdV2 . _azureConfClientId
+        --   mSecret <- fmap Text.pack <$> appUserAuthConf ^? _UserAuthConfSingleSource . _AuthSourceConfAzureAdV2 . _azureConfClientSecret
+        --   let mArgs = (,) <$> mID <*> mSecret
+        --   guard $ isJust mArgs
+        --   return . uncurry p $ fromJust mArgs
         tenantID = case appUserAuthConf of
           UserAuthConfSingleSource (AuthSourceConfAzureAdV2 AzureConf{..})
             -> tshow azureConfTenantId