Merge pull request #6261 from commercialhaskell/fix-upgrade-err

Fix stack upgrade warning message
commercialhaskell · Sep 29, 2023 · 267df9d · 267df9d
2 parents c327a48 + d9ccbd2
commit 267df9d
Showing 1 changed file with 7 additions and 5 deletions.
diff --git a/src/Stack/Upgrade.hs b/src/Stack/Upgrade.hs
@@ -135,11 +135,13 @@ upgrade builtHash (UpgradeOpts mbo mso) = case (mbo, mso) of
   -- See #2977 - if --git or --git-repo is specified, do source upgrade.
   (_, Just so@(SourceOpts (Just _))) -> source so
   (Just bo, Just so) -> binary bo `catchAny` \e -> do
-    prettyWarnL
-      [ flow "Exception occurred when trying to perform binary upgrade:"
-      , fromString . show $ e
-      , line <> flow "Falling back to source upgrade."
-      ]
+    prettyWarn $
+         flow "When trying to perform binary upgrade, Stack encountered the \
+              \following error:"
+      <> blankLine
+      <> ppException e
+      <> blankLine
+      <> flow "Falling back to source upgrade."
     source so
  where
   binary = binaryUpgrade