X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FcoreSyn%2FPprCore.lhs;h=8fa61e5e7ad97760539a27934e7c0803f494a05a;hb=5cf27e8f1731c52fe63a5b9615f927484164c61b;hp=20f0b4d1c1687b499912a118b836fe3c5444c35b;hpb=ca5a4a480d10d61e5b7a52eb4d556e8b8c33e69d;p=ghc-hetmet.git

diff --git a/ghc/compiler/coreSyn/PprCore.lhs b/ghc/compiler/coreSyn/PprCore.lhs
index 20f0b4d..8fa61e5 100644
--- a/ghc/compiler/coreSyn/PprCore.lhs
+++ b/ghc/compiler/coreSyn/PprCore.lhs
@@ -35,7 +35,7 @@ import Literal		( Literal{-instances-} )
 import Name		( isSymLexeme )
 import Outputable	-- quite a few things
 import PprEnv
-import PprType		( GenType{-instances-}, GenTyVar{-instance-} )
+import PprType		( pprParendGenType, GenType{-instances-}, GenTyVar{-instance-} )
 import PprStyle		( PprStyle(..) )
 import Pretty
 import PrimOp		( PrimOp{-instances-} )
@@ -91,7 +91,7 @@ init_ppr_env sty pbdr1 pbdr2 pocc
 	(Just (ppr sty)) -- tyvars
 	(Just (ppr sty)) -- usage vars
 	(Just pbdr1) (Just pbdr2) (Just pocc) -- value vars
-	(Just (ppr sty)) -- types
+	(Just (pprParendGenType sty)) -- types
 	(Just (ppr sty)) -- usages
 
 --------------