diff options
| -rw-r--r-- | compiler/types/TyCon.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/types/TyCon.hs b/compiler/types/TyCon.hs index 1648fc9eb7..0e658d7365 100644 --- a/compiler/types/TyCon.hs +++ b/compiler/types/TyCon.hs @@ -644,8 +644,8 @@ They fit together like so: but it's enforced by etaExpandAlgTyCon -} -instance Outputable tv => Outputable (VarBndr tv TyConBndrVis) where - ppr (Bndr v bi) = ppr_bi bi <+> parens (ppr v) +instance OutputableBndr tv => Outputable (VarBndr tv TyConBndrVis) where + ppr (Bndr v bi) = ppr_bi bi <+> parens (pprBndr LetBind v) where ppr_bi (AnonTCB VisArg) = text "anon-vis" ppr_bi (AnonTCB InvisArg) = text "anon-invis" |