chore(oauth2): fix !develop syntax contd

2024-03-20 18:24:39 +01:00 · 2024-03-20 18:24:39 +01:00 · b1cb45ac7e
commit b1cb45ac7e
parent 274c86a820
1 changed files with 2 additions and 2 deletions
--- 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