X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FcoreSyn%2FPprCore.lhs;fp=compiler%2FcoreSyn%2FPprCore.lhs;h=b87d3815672b36e0b4c103ce5bbaf3fd04271fbf;hp=104bf811b8f5455b6c8c94a48533014dadb56d33;hb=aa1c7df20292d9af0b757d71870ae6890a1f9030;hpb=eb2d8fe3f17b2c2bd30b3bf2d1451b367152f036

diff --git a/compiler/coreSyn/PprCore.lhs b/compiler/coreSyn/PprCore.lhs
index 104bf81..b87d381 100644
--- a/compiler/coreSyn/PprCore.lhs
+++ b/compiler/coreSyn/PprCore.lhs
@@ -303,6 +303,8 @@ pprIdBndr id = ppr id <+> pprIdBndrInfo (idInfo id)
 
 pprIdBndrInfo :: IdInfo -> SDoc
 pprIdBndrInfo info 
+  | opt_SuppressIdInfo = empty
+  | otherwise
   = megaSeqIdInfo info `seq` doc -- The seq is useful for poking on black holes
   where
     prag_info = inlinePragInfo info