diff options
| author | Ben Lippmeier <benl@ouroborus.net> | 2010-12-08 06:30:37 +0000 |
|---|---|---|
| committer | Ben Lippmeier <benl@ouroborus.net> | 2010-12-08 06:30:37 +0000 |
| commit | aa1c7df20292d9af0b757d71870ae6890a1f9030 (patch) | |
| tree | 755c4eb9f78d9dd3a7f62a5d3a1642f65b2a7678 /compiler | |
| parent | eb2d8fe3f17b2c2bd30b3bf2d1451b367152f036 (diff) | |
| download | haskell-aa1c7df20292d9af0b757d71870ae6890a1f9030.tar.gz | |
Suppress more info with -dsuppress-idinfo
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/coreSyn/PprCore.lhs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/compiler/coreSyn/PprCore.lhs b/compiler/coreSyn/PprCore.lhs index 104bf811b8..b87d381567 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 |