summaryrefslogtreecommitdiff
path: root/compiler
diff options
context:
space:
mode:
authorSylvain Henry <sylvain@haskus.fr>2020-08-23 22:20:09 +0200
committerMarge Bot <ben+marge-bot@smart-cactus.org>2020-08-24 10:04:59 -0400
commit05550a5abc369e1cc4fc48def532ca9ba9adcad7 (patch)
tree43122cdcb6577c601f463f989415b8dd03d3b110 /compiler
parenta77b9ec2a6153065565bca7bb154fff35b830b82 (diff)
downloadhaskell-05550a5abc369e1cc4fc48def532ca9ba9adcad7.tar.gz
Avoid roundtrip through SDoc
As found by @monoidal on https://gitlab.haskell.org/ghc/ghc/-/merge_requests/3885#note_295126
Diffstat (limited to 'compiler')
-rw-r--r--compiler/GHC/CmmToAsm/Dwarf.hs4
1 files changed, 1 insertions, 3 deletions
diff --git a/compiler/GHC/CmmToAsm/Dwarf.hs b/compiler/GHC/CmmToAsm/Dwarf.hs
index d09588841b..c179b2f1d2 100644
--- a/compiler/GHC/CmmToAsm/Dwarf.hs
+++ b/compiler/GHC/CmmToAsm/Dwarf.hs
@@ -179,9 +179,7 @@ procToDwarf config prc
= DwarfSubprogram { dwChildren = map blockToDwarf (dblBlocks prc)
, dwName = case dblSourceTick prc of
Just s@SourceNote{} -> sourceName s
- _otherwise -> renderWithContext defaultSDocContext
- $ withPprStyle defaultDumpStyle
- $ ppr (dblLabel prc)
+ _otherwise -> show (dblLabel prc)
, dwLabel = dblCLabel prc
, dwParent = fmap mkAsmTempDieLabel
$ mfilter goodParent