[commit: ghc] wip/generalized-arrow: CoreLint: Improve debug output (7db1b47)

[git at git.haskell.org]

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

On branch  : wip/generalized-arrow
Link       : http://ghc.haskell.org/trac/ghc/changeset/7db1b4784109a93a8256b3434a3a13148855b123/ghc

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

commit 7db1b4784109a93a8256b3434a3a13148855b123
Author: Ben Gamari <ben at smart-cactus.org>
Date:   Sun Jan 31 21:35:20 2016 +0100

    CoreLint: Improve debug output


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

7db1b4784109a93a8256b3434a3a13148855b123
 compiler/coreSyn/CoreLint.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/coreSyn/CoreLint.hs b/compiler/coreSyn/CoreLint.hs
index 2c401de..472f29f 100644
--- a/compiler/coreSyn/CoreLint.hs
+++ b/compiler/coreSyn/CoreLint.hs
@@ -816,7 +816,7 @@ lintTyKind tyvar arg_ty
         -- and then apply it to both boxed and unboxed types.
   = do { arg_kind <- lintType arg_ty
        ; unless (arg_kind `eqType` tyvar_kind)
-                (addErrL (mkKindErrMsg tyvar arg_ty $$ (text "xx" <+> ppr arg_kind))) }
+                (addErrL (mkKindErrMsg tyvar arg_ty $$ (text "Linted Arg kind:" <+> ppr arg_kind))) }
   where
     tyvar_kind = tyVarKind tyvar