From: davve@dtek.chalmers.se <unknown>
Date: Sun, 25 Jun 2006 16:08:26 +0000 (+0000)
Subject: Fix a bug in the pretty printing of class declarations
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=2b615c06e0d0d825efb4ff71e93318ca1172452f

Fix a bug in the pretty printing of class declarations
---

diff --git a/compiler/hsSyn/HsDecls.lhs b/compiler/hsSyn/HsDecls.lhs
index 8ff3985..956e201 100644
--- a/compiler/hsSyn/HsDecls.lhs
+++ b/compiler/hsSyn/HsDecls.lhs
@@ -462,7 +462,7 @@ instance OutputableBndr name
 
       | otherwise	-- Laid out
       = sep [hsep [top_matter, ptext SLIT("where {")],
-	     nest 4 (sep [sep (map ppr_sig sigs), ppr methods, char '}'])]
+	     nest 4 (sep [sep (map ppr_sig sigs), pprLHsBinds methods, char '}'])]
       where
         top_matter  = ptext SLIT("class") <+> pp_decl_head (unLoc context) lclas tyvars <+> pprFundeps (map unLoc fds)
 	ppr_sig sig = ppr sig <> semi