diff options
| author | Herbert Valerio Riedel <hvr@gnu.org> | 2014-09-20 21:23:28 +0200 |
|---|---|---|
| committer | Herbert Valerio Riedel <hvr@gnu.org> | 2014-09-20 21:23:39 +0200 |
| commit | 9f7e3633c692dce75c27607131bd386178fb0fcf (patch) | |
| tree | 51e7cc68494a7c55014aa2d34e7a6a276907f40c /compiler | |
| parent | 4805abf413c02a2ed1af4fbeca2476590e984e37 (diff) | |
| download | haskell-9f7e3633c692dce75c27607131bd386178fb0fcf.tar.gz | |
Change linker message verbosity to `-v2` (re #7863)
With this change, the linker status logging output such as
Loading package ghc-prim ... linking ... done.
Loading package integer-gmp ... linking ... done.
Loading package base ... linking ... done.
is suppressed unless verbosity level is `-v2` or higher. This is done
to reduce the compiler message noise when TH is involved, which can
reduce the visibiliy of compile warnings.
Reviewed By: ekmett, austin
Differential Revision: https://phabricator.haskell.org/D232
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/ghci/Linker.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/ghci/Linker.lhs b/compiler/ghci/Linker.lhs index 5b0251c54e..ecba45b0fa 100644 --- a/compiler/ghci/Linker.lhs +++ b/compiler/ghci/Linker.lhs @@ -1292,7 +1292,7 @@ findFile mk_file_path (dir : dirs) \begin{code} maybePutStr :: DynFlags -> String -> IO () maybePutStr dflags s - = when (verbosity dflags > 0) $ + = when (verbosity dflags > 1) $ do let act = log_action dflags act dflags SevInteractive noSrcSpan defaultUserStyle (text s) |