[commit: ghc] wip/ttypeable: CoreLint: Improve debug output (b892440)

[git at git.haskell.org]

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

On branch  : wip/ttypeable
Link       : http://ghc.haskell.org/trac/ghc/changeset/b8924408e74f97b4e0e60cb90160a232060abbdb/ghc

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

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

    CoreLint: Improve debug output


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

b8924408e74f97b4e0e60cb90160a232060abbdb
 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 1322400..f3401ee 100644
--- a/compiler/coreSyn/CoreLint.hs
+++ b/compiler/coreSyn/CoreLint.hs
@@ -859,7 +859,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