Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/000d451758489e8fc2e2aceda88f2af3a8bed87f >--------------------------------------------------------------- commit 000d451758489e8fc2e2aceda88f2af3a8bed87f Author: Simon Peyton Jones <[email protected]> Date: Thu Apr 26 09:29:29 2012 +0100 Improve debug print a bit >--------------------------------------------------------------- compiler/typecheck/TcTyClsDecls.lhs | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/compiler/typecheck/TcTyClsDecls.lhs b/compiler/typecheck/TcTyClsDecls.lhs index 350f0d2..2502a92 100644 --- a/compiler/typecheck/TcTyClsDecls.lhs +++ b/compiler/typecheck/TcTyClsDecls.lhs @@ -775,7 +775,7 @@ tcFamTyPats fam_tc (HsBSig arg_pats (kvars, tvars)) kind_checker thing_inside ; all_args' <- zonkTcTypeToTypes ze all_args ; res_kind' <- zonkTcTypeToType ze res_kind - ; traceTc "tcFamPats" (ppr qtkvs' $$ ppr all_args' $$ ppr res_kind') + ; traceTc "tcFamPats" (pprTvBndrs qtkvs' $$ ppr all_args' $$ ppr res_kind') ; tcExtendTyVarEnv qtkvs' $ thing_inside qtkvs' all_args' res_kind' } \end{code} _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
