X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FcoreSyn%2FPprCore.lhs;h=a4ff8ef91a7ca19386ccc2787563975ee9b584cc;hb=a91e31661ea6a68e8e9f0eaac474965b70f563f1;hp=84e7810fe5d9b9ed25406c4f54f70f17a698cdcb;hpb=ade7dffdb2933913437b9073eb73485a9e1fbcc9;p=ghc-hetmet.git

diff --git a/ghc/compiler/coreSyn/PprCore.lhs b/ghc/compiler/coreSyn/PprCore.lhs
index 84e7810..a4ff8ef 100644
--- a/ghc/compiler/coreSyn/PprCore.lhs
+++ b/ghc/compiler/coreSyn/PprCore.lhs
@@ -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