refactor(Cabal): add a stack trace to dieProgress

Author: andreabedini

Cabal/src/Distribution/Utils/LogProgress.hs

@@ -19,6 +19,7 @@ import Distribution.Simple.Utils
 import Distribution.Utils.Progress
 import Distribution.Verbosity
 import Text.PrettyPrint
+import GHC.Stack (HasCallStack, callStack, prettyCallStack)
 
 type CtxMsg = Doc
 type LogMsg = Doc
@@ -87,10 +88,13 @@ infoProgress s = LogProgress $ \env ->
     stepProgress s
 
 -- | Fail the computation with an error message.
-dieProgress :: Doc -> LogProgress a
+dieProgress :: HasCallStack => Doc -> LogProgress a
 dieProgress s = LogProgress $ \env ->
   failProgress $
-    hang (text "Error:") 4 (formatMsg (le_context env) s)
+    hang (text "Error:") 4 $ 
+    vcat [ formatMsg (le_context env) s
+         , text (prettyCallStack callStack)
+         ]
 
 -- | Format a message with context. (Something simple for now.)
 formatMsg :: [CtxMsg] -> Doc -> Doc