From 2b615c06e0d0d825efb4ff71e93318ca1172452f Mon Sep 17 00:00:00 2001
From: "davve@dtek.chalmers.se" <unknown>
Date: Sun, 25 Jun 2006 16:08:26 +0000
Subject: [PATCH] Fix a bug in the pretty printing of class declarations

---
 compiler/hsSyn/HsDecls.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
-- 
1.7.10.4