From 526d2ebc218fc289771eedb4a1d5a5477967ed5b Mon Sep 17 00:00:00 2001 From: Sergei Trofimovich Date: Thu, 20 Apr 2017 20:49:26 +0100 Subject: pprDebugCLabel: drop duplicate trailing ')' Signed-off-by: Sergei Trofimovich --- compiler/cmm/CLabel.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'compiler/cmm/CLabel.hs') 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 -- cgit v1.2.1