X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FhsSyn%2FHsDecls.lhs;fp=ghc%2Fcompiler%2FhsSyn%2FHsDecls.lhs;h=2643fdbc1c9e016204555cc932bc75ca3419a16c;hb=1bade0c9060d3aec4fd4590803d411d54f0ea927;hp=547da2738b6f353d180b11e27011fde84d41fd01;hpb=9694f168f43d39c92a47d10564f620c657addb12;p=ghc-hetmet.git

diff --git a/ghc/compiler/hsSyn/HsDecls.lhs b/ghc/compiler/hsSyn/HsDecls.lhs
index 547da27..2643fdb 100644
--- a/ghc/compiler/hsSyn/HsDecls.lhs
+++ b/ghc/compiler/hsSyn/HsDecls.lhs
@@ -476,7 +476,7 @@ unbangedType ty = BangType HsNoBang ty
 \begin{code}
 instance (OutputableBndr name) => Outputable (ConDecl name) where
     ppr (ConDecl con tvs cxt con_details loc)
-      = sep [pprHsForAll tvs cxt, ppr_con_details con con_details]
+      = sep [pprHsForAll Explicit tvs cxt, ppr_con_details con con_details]
 
 ppr_con_details con (InfixCon ty1 ty2)
   = hsep [ppr ty1, ppr con, ppr ty2]