[project @ 2005-12-29 12:06:13 by simonpj]

[ghc-hetmet.git] / ghc / compiler / coreSyn / PprCore.lhs

diff --git a/ghc/compiler/coreSyn/PprCore.lhs b/ghc/compiler/coreSyn/PprCore.lhs
index 84e7810..0a40ab4 100644 (file)
--- a/ghc/compiler/coreSyn/PprCore.lhs
+++ b/ghc/compiler/coreSyn/PprCore.lhs
@@ -101,7 +101,7 @@ ppr_bind (Rec binds)               = vcat (map pp binds)
 ppr_binding :: OutputableBndr b => (b, Expr b) -> SDoc
 ppr_binding (val_bdr, expr)
   = pprBndr LetBind val_bdr $$ 
-    (ppr val_bdr <+> equals <+> pprCoreExpr expr)
+    hang (ppr val_bdr <+> equals) 2 (pprCoreExpr expr)
 \end{code}
 
 \begin{code}
@@ -304,7 +304,7 @@ pprTyVarBndr tyvar
 pprIdBndr id = ppr id <+> 
               (megaSeqIdInfo (idInfo id) `seq`
                        -- Useful for poking on black holes
-               ifPprDebug (ppr (idInlinePragma id) <+> ppr (idOccInfo id) <+> 
+               brackets (ppr (idInlinePragma id) <+> ppr (idOccInfo id) <+> 
 #ifdef OLD_STRICTNESS
                            ppr (idDemandInfo id) <+>
 #endif