Skip to content
Snippets Groups Projects
Commit 9e390fdd authored by Simon Peyton Jones's avatar Simon Peyton Jones
Browse files

Don't suppress foralls in the RHS of a type synonym definition! 

Fixes Trac #7872
parent 11a85cc7
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
compiler/main/PprTyThing.hs
+ 2
− 2
View file @ 9e390fdd
...@@ -177,8 +177,8 @@ pprTyCon pefas ss tyCon ...@@ -177,8 +177,8 @@ pprTyCon pefas ss tyCon
SynFamilyTyCon {} -> pprTyConHdr pefas tyCon <+> dcolon <+> SynFamilyTyCon {} -> pprTyConHdr pefas tyCon <+> dcolon <+>
pprTypeForUser pefas (GHC.synTyConResKind tyCon) pprTypeForUser pefas (GHC.synTyConResKind tyCon)
SynonymTyCon rhs_ty -> hang (pprTyConHdr pefas tyCon <+> equals) SynonymTyCon rhs_ty -> hang (pprTyConHdr pefas tyCon <+> equals)
2 (pprTypeForUser pefas rhs_ty) 2 (ppr rhs_ty) -- Don't suppress foralls on RHS type!
-- e.g. type T = forall a. a->a
| Just cls <- GHC.tyConClass_maybe tyCon | Just cls <- GHC.tyConClass_maybe tyCon
= pprClass pefas ss cls = pprClass pefas ss cls
| otherwise | otherwise
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment