summaryrefslogtreecommitdiff
path: root/compiler/GHC/Driver/Session.hs
diff options
context:
space:
mode:
authorBen Gamari <ben@smart-cactus.org>2020-03-18 15:54:35 -0400
committerBen Gamari <ben@smart-cactus.org>2020-11-09 20:59:15 -0500
commit151f6f6f7bafa30a9e0f768d5ab187c6cbe35520 (patch)
tree6d6b1f6ea249b64c8d53e185ca253141a267c3bd /compiler/GHC/Driver/Session.hs
parent90e5fbf24d504d6a7b1f4fb1831662eb5f9cba43 (diff)
downloadhaskell-wip/local-symbols-2.tar.gz
Enable -fexpose-internal-symbols when debug level >=2wip/local-symbols-2
This seems like a reasonable default as the object file size increases by around 5%.
Diffstat (limited to 'compiler/GHC/Driver/Session.hs')
-rw-r--r--compiler/GHC/Driver/Session.hs8
1 files changed, 7 insertions, 1 deletions
diff --git a/compiler/GHC/Driver/Session.hs b/compiler/GHC/Driver/Session.hs
index 4c53e56f3d..80edddb828 100644
--- a/compiler/GHC/Driver/Session.hs
+++ b/compiler/GHC/Driver/Session.hs
@@ -4419,7 +4419,13 @@ setVerbosity :: Maybe Int -> DynP ()
setVerbosity mb_n = upd (\dfs -> dfs{ verbosity = mb_n `orElse` 3 })
setDebugLevel :: Maybe Int -> DynP ()
-setDebugLevel mb_n = upd (\dfs -> dfs{ debugLevel = mb_n `orElse` 2 })
+setDebugLevel mb_n =
+ upd (\dfs -> exposeSyms $ dfs{ debugLevel = n })
+ where
+ n = mb_n `orElse` 2
+ exposeSyms
+ | n > 2 = setGeneralFlag' Opt_ExposeInternalSymbols
+ | otherwise = id
data PkgDbRef
= GlobalPkgDb