diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2020-04-29 14:04:59 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2020-04-29 15:19:18 +0100 |
| commit | 375769d212839751356455a22535f6162877339b (patch) | |
| tree | a95b8ddb16c55b2f4b4e6d6efe271e53b41d21d4 /compiler/GHC/Core/Ppr.hs | |
| parent | c62271a21b1ba1d207aaebf370c87dd884fa6ae1 (diff) | |
| download | haskell-wip/T18098.tar.gz | |
Mark rule args as non-tail-calledwip/T18098
This was just an omission...b I'd failed to call markAllNonTailCall on
rule args. I think this bug has been here a long time, but it's quite
hard to trigger.
Fixes #18098
Diffstat (limited to 'compiler/GHC/Core/Ppr.hs')
| -rw-r--r-- | compiler/GHC/Core/Ppr.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/Core/Ppr.hs b/compiler/GHC/Core/Ppr.hs index 6c3eedb77f..e9c746d7a6 100644 --- a/compiler/GHC/Core/Ppr.hs +++ b/compiler/GHC/Core/Ppr.hs @@ -446,7 +446,7 @@ pprIdBndrInfo info lbv_info = oneShotInfo info has_prag = not (isDefaultInlinePragma prag_info) - has_occ = not (isManyOccs occ_info) + has_occ = not (isNoOccInfo occ_info) has_dmd = not $ isTopDmd dmd_info has_lbv = not (hasNoOneShotInfo lbv_info) |