diff options
| author | simonpj@microsoft.com <unknown> | 2009-11-10 17:10:40 +0000 |
|---|---|---|
| committer | simonpj@microsoft.com <unknown> | 2009-11-10 17:10:40 +0000 |
| commit | 6b53962684d726b8d5c6cd84d0e66904fc9bac99 (patch) | |
| tree | f98d48e2b296eee0ce19393c3aebbaa15c47632a | |
| parent | 5919794834e385b6f7bda7cfbb8061b93a298426 (diff) | |
| download | haskell-6b53962684d726b8d5c6cd84d0e66904fc9bac99.tar.gz | |
Make -dverbose-core2core set verbosity = 2
This ensures that messages coming out with -dshow-passes
also come out with -dverbose-core2core
| -rw-r--r-- | compiler/main/DynFlags.hs | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/compiler/main/DynFlags.hs b/compiler/main/DynFlags.hs index 53be2e9982..862e064d1f 100644 --- a/compiler/main/DynFlags.hs +++ b/compiler/main/DynFlags.hs @@ -344,7 +344,7 @@ data DynFlags = DynFlags { hscTarget :: HscTarget, hscOutName :: String, -- ^ Name of the output file extCoreName :: String, -- ^ Name of the .hcr output file - verbosity :: Int, -- ^ Verbosity level: see "DynFlags#verbosity_levels" + verbosity :: Int, -- ^ Verbosity level: see Note [Verbosity levels] optLevel :: Int, -- ^ Optimisation level simplPhases :: Int, -- ^ Number of simplifier phases maxSimplIterations :: Int, -- ^ Max simplifier iterations @@ -730,9 +730,8 @@ defaultDynFlags = } {- - #verbosity_levels# - Verbosity levels: - +Note [Verbosity levels] +~~~~~~~~~~~~~~~~~~~~~~~ 0 | print errors & warnings only 1 | minimal verbosity: print "compiling M ... done." for each module. 2 | equivalent to -dshow-passes @@ -1475,7 +1474,8 @@ dynamic_flags = [ Supported , Flag "dsource-stats" (setDumpFlag Opt_D_source_stats) Supported - , Flag "dverbose-core2core" (NoArg setVerboseCore2Core) + , Flag "dverbose-core2core" (NoArg (do { setVerbosity (Just 2) + ; setVerboseCore2Core })) Supported , Flag "dverbose-stg2stg" (setDumpFlag Opt_D_verbose_stg2stg) Supported @@ -2029,7 +2029,8 @@ unSetDynFlag f = upd (\dfs -> dopt_unset dfs f) -------------------------- setDumpFlag :: DynFlag -> OptKind DynP setDumpFlag dump_flag - = NoArg (setDynFlag dump_flag >> when want_recomp forceRecompile) + = NoArg (do { setDynFlag dump_flag + ; when want_recomp forceRecompile }) where -- Certain dumpy-things are really interested in what's going -- on during recompilation checking, so in those cases we |