Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/eaae6cae97c5ad1626cbb3215e91b55fd9f43d3d >--------------------------------------------------------------- commit eaae6cae97c5ad1626cbb3215e91b55fd9f43d3d Author: Simon Peyton Jones <[email protected]> Date: Thu Sep 29 16:05:31 2011 +0100 A tiny bit more debug info >--------------------------------------------------------------- compiler/typecheck/TcRnTypes.lhs | 1 + 1 files changed, 1 insertions(+), 0 deletions(-) diff --git a/compiler/typecheck/TcRnTypes.lhs b/compiler/typecheck/TcRnTypes.lhs index 937cbac..45004c6 100644 --- a/compiler/typecheck/TcRnTypes.lhs +++ b/compiler/typecheck/TcRnTypes.lhs @@ -537,6 +537,7 @@ instance Outputable TcTyThing where -- Debugging only ppr elt@(ATcId {}) = text "Identifier" <> brackets (ppr (tct_id elt) <> dcolon <> ppr (varType (tct_id elt)) <> comma + <+> ppr (tct_closed elt) <> comma <+> ppr (tct_level elt)) ppr (ATyVar tv _) = text "Type variable" <+> quotes (ppr tv) ppr (AThing k) = text "AThing" <+> ppr k _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
