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