[project @ 2000-05-13 00:20:57 by lewie]

[ghc-hetmet.git] / ghc / compiler / hsSyn / HsDecls.lhs

diff --git a/ghc/compiler/hsSyn/HsDecls.lhs b/ghc/compiler/hsSyn/HsDecls.lhs
index fe95b3c..7f47891 100644 (file)
--- a/ghc/compiler/hsSyn/HsDecls.lhs
+++ b/ghc/compiler/hsSyn/HsDecls.lhs
@@ -298,6 +298,9 @@ ppr_con_details con (RecCon fields)
                         dcolon <+>
                         ppr_bang ty
 
+instance Outputable name => Outputable (BangType name) where
+    ppr = ppr_bang
+
 ppr_bang (Banged   ty) = ptext SLIT("!") <> pprParendHsType ty
 ppr_bang (Unbanged ty) = pprParendHsType ty
 ppr_bang (Unpacked ty) = ptext SLIT("! !") <> pprParendHsType ty