X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FhsSyn%2FHsDecls.lhs;h=474131a10d45431d25008411fdb50c9bf0f76c88;hb=1796a476986f14cca2f7628d2f7cf6d530853495;hp=24f6b99d8dc3dd06291290e9810b3c29e3c3f57f;hpb=3cc0dcd426c329b84742676f85d50a059da24267;p=ghc-hetmet.git

diff --git a/ghc/compiler/hsSyn/HsDecls.lhs b/ghc/compiler/hsSyn/HsDecls.lhs
index 24f6b99..474131a 100644
--- a/ghc/compiler/hsSyn/HsDecls.lhs
+++ b/ghc/compiler/hsSyn/HsDecls.lhs
@@ -32,7 +32,7 @@ import {-# SOURCE #-}	HsExpr( HsExpr, pprExpr )
 	-- Because Expr imports Decls via HsBracket
 
 import HsBinds		( HsBindGroup, HsBind, LHsBinds, 
-			  Sig(..), LSig, LFixitySig )
+			  Sig(..), LSig, LFixitySig, pprLHsBinds )
 import HsPat		( HsConDetails(..), hsConArgs )
 import HsImpExp		( pprHsVar )
 import HsTypes
@@ -541,7 +541,7 @@ instance (OutputableBndr name) => Outputable (InstDecl name) where
     ppr (InstDecl inst_ty binds uprags)
       = vcat [hsep [ptext SLIT("instance"), ppr inst_ty, ptext SLIT("where")],
 	      nest 4 (ppr uprags),
-	      nest 4 (ppr binds) ]
+	      nest 4 (pprLHsBinds binds) ]
 \end{code}
 
 %************************************************************************