From b1cb45ac7efbaab3c806932b162e87c95c68823c Mon Sep 17 00:00:00 2001
From: Sarah Vaupel <sarah.vaupel@uniworx.de>
Date: Wed, 20 Mar 2024 18:24:39 +0100
Subject: [PATCH] chore(oauth2): fix !develop syntax contd

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

diff --git a/src/Application.hs b/src/Application.hs
index 4163209f3..23275f94a 100644
--- a/src/Application.hs
+++ b/src/Application.hs
@@ -363,11 +363,11 @@ makeFoundation appSettings''@AppSettings{..} = do
           return . uncurry p $ fromJust mArgs
         tenantID = case appUserAuthConf of
           UserAuthConfSingleSource (AuthSourceConfAzureAdV2 AzureConf{..})
-            -> Text.pack azureConfTenantId
+            -> tshow azureConfTenantId
           _other
             -> error "Tenant ID missing!"
         oauth2Plugins
-          | UserAuthConfSingleSource (AuthSourceConfAzureAdV2 AzureConf{..}) appUserAuthConf
+          | UserAuthConfSingleSource (AuthSourceConfAzureAdV2 AzureConf{..}) <- appUserAuthConf
             = singleton $ oauth2AzureADScoped (Set.toList azureConfScopes) azureConfClientId azureConfClientSecret
           | otherwise
             = mempty