[commit: ghc] master: pprDebugCLabel: drop duplicate trailing ')' (526d2eb)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/526d2ebc218fc289771eedb4a1d5a5477967ed5b/ghc

>---------------------------------------------------------------

commit 526d2ebc218fc289771eedb4a1d5a5477967ed5b
Author: Sergei Trofimovich <slyfox at gentoo.org>
Date:   Thu Apr 20 20:49:26 2017 +0100

    pprDebugCLabel: drop duplicate trailing ')'
    
    Signed-off-by: Sergei Trofimovich <slyfox at gentoo.org>


>---------------------------------------------------------------

526d2ebc218fc289771eedb4a1d5a5477967ed5b
 compiler/cmm/CLabel.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/cmm/CLabel.hs b/compiler/cmm/CLabel.hs
index d7051f7..3ba4f76 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