X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Ftypecheck%2FTcRnTypes.lhs;h=1e03afd5a383bba6f30d3c10acdb3ceb26471b3a;hp=ec2f5da7d0bb2c362e2befe40a1fc9367fe0516b;hb=deda0c55629600e886f47a5e90bad67953df1ad8;hpb=4d60ffc3e9a167c64e395046e1d2ef51eeb165ec

diff --git a/compiler/typecheck/TcRnTypes.lhs b/compiler/typecheck/TcRnTypes.lhs
index ec2f5da..1e03afd 100644
--- a/compiler/typecheck/TcRnTypes.lhs
+++ b/compiler/typecheck/TcRnTypes.lhs
@@ -470,7 +470,7 @@ data RefinementVisibility
 					-- GADT refinement
 
 instance Outputable TcTyThing where	-- Debugging only
-   ppr (AGlobal g)      = ppr g
+   ppr (AGlobal g)      = pprTyThing g
    ppr elt@(ATcId {})   = text "Identifier" <> 
 			  ifPprDebug (brackets (ppr (tct_id elt) <> dcolon <> ppr (tct_type elt) <> comma
 				 <+> ppr (tct_level elt) <+> ppr (tct_co elt)))