diff options
Diffstat (limited to 'compiler/main/PprTyThing.hs')
| -rw-r--r-- | compiler/main/PprTyThing.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/compiler/main/PprTyThing.hs b/compiler/main/PprTyThing.hs index b95c69902a..98f2c50ae5 100644 --- a/compiler/main/PprTyThing.hs +++ b/compiler/main/PprTyThing.hs @@ -184,6 +184,9 @@ pprTyCon pefas ss tyCon AbstractClosedSynFamilyTyCon -> closed_family_header <+> ptext (sLit "..") SynonymTyCon rhs_ty -> hang (pprTyConHdr pefas tyCon <+> equals) 2 (ppr rhs_ty) -- Don't suppress foralls on RHS type! + BuiltInSynFamTyCon {} -> pprTyConHdr pefas tyCon <+> dcolon <+> + pprTypeForUser pefas (GHC.synTyConResKind tyCon) + -- e.g. type T = forall a. a->a | Just cls <- GHC.tyConClass_maybe tyCon = pprClass pefas ss cls |