From 01d6d2d0a2758f9e2a9a61521e710f8154334e01 Mon Sep 17 00:00:00 2001 From: simonmar Date: Wed, 15 Aug 2001 15:57:20 +0000 Subject: [PATCH] [project @ 2001-08-15 15:57:20 by simonmar] Don't print all the fields of a record on the same line --- ghc/compiler/hsSyn/HsDecls.lhs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ghc/compiler/hsSyn/HsDecls.lhs b/ghc/compiler/hsSyn/HsDecls.lhs index 0b0c447..6d1befb 100644 --- a/ghc/compiler/hsSyn/HsDecls.lhs +++ b/ghc/compiler/hsSyn/HsDecls.lhs @@ -606,7 +606,7 @@ ppr_con_details con (VanillaCon tys) = ppr con <+> hsep (map (ppr_bang) tys) ppr_con_details con (RecCon fields) - = ppr con <+> braces (hsep (punctuate comma (map ppr_field fields))) + = ppr con <+> braces (sep (punctuate comma (map ppr_field fields))) where ppr_field (ns, ty) = hsep (map (ppr) ns) <+> dcolon <+> -- 1.7.10.4