+instance Outputable Unfolding where
+ ppr NoUnfolding = ptext SLIT("No unfolding")
+ ppr (OtherCon cs) = ptext SLIT("OtherCon") <+> ppr cs
+ ppr (CompulsoryUnfolding e) = ptext SLIT("Compulsory") <+> ppr e
+ ppr (CoreUnfolding e top hnf cheap g)
+ = ptext SLIT("Unf") <+> sep [ppr top <+> ppr hnf <+> ppr cheap <+> ppr g,
+ ppr e]
+