From: simonpj <unknown>
Date: Tue, 22 Jun 2004 11:03:16 +0000 (+0000)
Subject: [project @ 2004-06-22 11:03:16 by simonpj]
X-Git-Tag: Initial_conversion_from_CVS_complete~1798
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=0028c436bd73409a26d34349390d9b29402e5ecc;p=ghc-hetmet.git

[project @ 2004-06-22 11:03:16 by simonpj]
Improve pretty printing slightly
---

diff --git a/ghc/compiler/hsSyn/HsExpr.lhs b/ghc/compiler/hsSyn/HsExpr.lhs
index 1ff0e8f..df81fe1 100644
--- a/ghc/compiler/hsSyn/HsExpr.lhs
+++ b/ghc/compiler/hsSyn/HsExpr.lhs
@@ -403,7 +403,8 @@ ppr_expr (HsType id) = ppr id
 
 ppr_expr (HsSpliceE s)       = pprSplice s
 ppr_expr (HsBracket b)       = pprHsBracket b
-ppr_expr (HsBracketOut e ps) = ppr e $$ ptext SLIT("where") <+> ppr ps
+ppr_expr (HsBracketOut e []) = ppr e	
+ppr_expr (HsBracketOut e ps) = ppr e $$ ptext SLIT("pending") <+> ppr ps
 
 ppr_expr (HsProc pat (L _ (HsCmdTop cmd _ _ _)))
   = hsep [ptext SLIT("proc"), ppr pat, ptext SLIT("->"), ppr cmd]
@@ -461,6 +462,8 @@ pprParendExpr expr
       ExplicitPArr _ _  -> pp_as_was
       ExplicitTuple _ _	-> pp_as_was
       HsPar _		-> pp_as_was
+      HsBracket _	-> pp_as_was
+      HsBracketOut _ []	-> pp_as_was
 			
       _			-> parens pp_as_was
 \end{code}