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

[git at git.haskell.org]

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

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

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

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

    CoreLint: Improve debug output


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

84b0f2e00cba19063d77e1691e15e064477420cb
 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 3db70882..b7ddfdd 100644
--- a/compiler/coreSyn/CoreLint.hs
+++ b/compiler/coreSyn/CoreLint.hs
@@ -860,7 +860,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