From aa1c7df20292d9af0b757d71870ae6890a1f9030 Mon Sep 17 00:00:00 2001 From: Ben Lippmeier Date: Wed, 8 Dec 2010 06:30:37 +0000 Subject: [PATCH] Suppress more info with -dsuppress-idinfo --- compiler/coreSyn/PprCore.lhs | 2 ++ 1 file changed, 2 insertions(+) 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 -- 1.7.10.4