[commit: ghc] master: A tiny bit more debug info (eaae6ca)

[Simon Peyton Jones]

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 <simonpj at microsoft.com>
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