invert order of method discovery in credential chain

brendanhay · Jan 16, 2025 · 31e11fe · 31e11fe
1 parent e9b076e
commit 31e11fe
Showing 1 changed file with 6 additions and 6 deletions.
diff --git a/lib/amazonka/src/Amazonka/Auth.hs b/lib/amazonka/src/Amazonka/Auth.hs
@@ -109,14 +109,14 @@ discover ::
   m Env
 discover =
   runCredentialChain
-    [ fromKeysEnv,
-      fromFileEnv,
-      fromWebIdentityEnv,
-      fromContainerEnv,
-      \env -> do
+    [ \env -> do
         onEC2 <- isEC2 $ manager env
         unless onEC2 $ throwM CredentialChainExhausted
-        fromDefaultInstanceProfile env
+        fromDefaultInstanceProfile env,
+      fromWebIdentityEnv,
+      fromContainerEnv,
+      fromFileEnv,
+      fromKeysEnv
     ]
 
 -- | Compose a list of credential-providing functions by testing each