X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FhsSyn%2FHsDecls.lhs;h=4fcf6025b73bcf3508852e538c4af31d7a6c0dff;hb=5f99dc3d087e6f43c0ae1c8d92a1a9c4c3960ac9;hp=75e59c685cb4a64369eb78af363e7fb93492dfac;hpb=ad94d40948668032189ad22a0ad741ac1f645f50;p=ghc-hetmet.git

diff --git a/compiler/hsSyn/HsDecls.lhs b/compiler/hsSyn/HsDecls.lhs
index 75e59c6..4fcf602 100644
--- a/compiler/hsSyn/HsDecls.lhs
+++ b/compiler/hsSyn/HsDecls.lhs
@@ -13,7 +13,7 @@ Definitions for: @TyDecl@ and @oCnDecl@, @ClassDecl@,
 -- The above warning supression flag is a temporary kludge.
 -- While working on this module you are encouraged to remove it and fix
 -- any warnings in the module. See
---     http://hackage.haskell.org/trac/ghc/wiki/CodingStyle#Warnings
+--     http://hackage.haskell.org/trac/ghc/wiki/Commentary/CodingStyle#Warnings
 -- for details
 
 module HsDecls (
@@ -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
 --