diff options
| author | Sergei Trofimovich <slyfox@gentoo.org> | 2017-04-20 20:49:26 +0100 |
|---|---|---|
| committer | Sergei Trofimovich <slyfox@gentoo.org> | 2017-04-20 20:52:16 +0100 |
| commit | 526d2ebc218fc289771eedb4a1d5a5477967ed5b (patch) | |
| tree | aaab1e705739bbb1d9d17e93f3f52b5f7081fb47 | |
| parent | a18f58d2290c5d5d44c7850ea04de279110d228b (diff) | |
| download | haskell-526d2ebc218fc289771eedb4a1d5a5477967ed5b.tar.gz | |
pprDebugCLabel: drop duplicate trailing ')'
Signed-off-by: Sergei Trofimovich <slyfox@gentoo.org>
| -rw-r--r-- | compiler/cmm/CLabel.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/cmm/CLabel.hs b/compiler/cmm/CLabel.hs index d7051f76b0..3ba4f7647a 100644 --- a/compiler/cmm/CLabel.hs +++ b/compiler/cmm/CLabel.hs @@ -360,7 +360,7 @@ pprDebugCLabel lbl <+> ppr src <+> ppr funOrData) - _ -> ppr lbl <> (parens $ text "other CLabel)") + _ -> ppr lbl <> (parens $ text "other CLabel") data IdLabelInfo @@ -416,7 +416,7 @@ data RtsLabelInfo -- Determines the suffix appended to the name when a CLabel.CmmLabel -- is pretty printed. data CmmLabelInfo - = CmmInfo -- ^ misc rts info tabless, suffix _info + = CmmInfo -- ^ misc rts info tables, suffix _info | CmmEntry -- ^ misc rts entry points, suffix _entry | CmmRetInfo -- ^ misc rts ret info tables, suffix _info | CmmRet -- ^ misc rts return points, suffix _ret |