diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2021-05-31 14:31:36 +0100 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-07-28 13:19:06 -0400 |
| commit | 4e4ca28cd947d90fc1b9423b680d7b96722dc823 (patch) | |
| tree | 4a07f05b7140b5d40617349e47ae9b4fc30cb408 | |
| parent | d43a90295a0e90daf23edd30324c2e5834e8bab2 (diff) | |
| download | haskell-4e4ca28cd947d90fc1b9423b680d7b96722dc823.tar.gz | |
Print out module name in "bailing out" message
| -rw-r--r-- | compiler/GHC/Core/Opt/Pipeline.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/GHC/Core/Opt/Pipeline.hs b/compiler/GHC/Core/Opt/Pipeline.hs index 26a46321b4..4d1b4cbc59 100644 --- a/compiler/GHC/Core/Opt/Pipeline.hs +++ b/compiler/GHC/Core/Opt/Pipeline.hs @@ -691,8 +691,8 @@ simplifyPgmIO pass@(CoreDoSimplify max_iterations mode) -- about to begin, with '1' for the first | iteration_no > max_iterations -- Stop if we've run out of iterations = warnPprTrace (debugIsOn && (max_iterations > 2)) - ( hang (text "Simplifier bailing out after" <+> int max_iterations - <+> text "iterations" + ( hang (ppr this_mod <> colon <+> text "simplifier bailing out after" + <+> int max_iterations <+> text "iterations" <+> (brackets $ hsep $ punctuate comma $ map (int . simplCountN) (reverse counts_so_far))) 2 (text "Size =" <+> ppr (coreBindsStats binds))) $ |