X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FhsSyn%2FHsDecls.lhs;h=4fcf6025b73bcf3508852e538c4af31d7a6c0dff;hb=3403e40722df9ad29eef8ec6224112a57b4fa7fc;hp=0c9e7f46e4a677d00f216a75dbdb1e203a72594b;hpb=7fc749a43b4b6b85d234fa95d4928648259584f4;p=ghc-hetmet.git

diff --git a/compiler/hsSyn/HsDecls.lhs b/compiler/hsSyn/HsDecls.lhs
index 0c9e7f4..4fcf602 100644
--- a/compiler/hsSyn/HsDecls.lhs
+++ b/compiler/hsSyn/HsDecls.lhs
@@ -752,10 +752,10 @@ data InstDecl name
 instance (OutputableBndr name) => Outputable (InstDecl name) where
 
     ppr (InstDecl inst_ty binds uprags ats)
-      = vcat [hsep [ptext SLIT("instance"), ppr inst_ty, ptext SLIT("where")],
-	      nest 4 (ppr ats),
-	      nest 4 (ppr uprags),
-	      nest 4 (pprLHsBinds binds) ]
+      = vcat [hsep [ptext SLIT("instance"), ppr inst_ty, ptext SLIT("where")]
+             , nest 4 $ vcat (map ppr ats)
+ 	     , nest 4 $ vcat (map ppr uprags)
+	     , nest 4 $ pprLHsBinds binds ]
 
 -- Extract the declarations of associated types from an instance
 --