X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FhsSyn%2FHsExpr.lhs;fp=ghc%2Fcompiler%2FhsSyn%2FHsExpr.lhs;h=df81fe16fc2b2b2427ae01e72f50e8fee8fe674a;hb=0028c436bd73409a26d34349390d9b29402e5ecc;hp=1ff0e8fbbeaf2a18824a9c3bac099a771a4a9aa2;hpb=b6fbea9780c7acaa623acf2289db1514745ab6b8;p=ghc-hetmet.git

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}