diff options
| author | Paolo Capriotti <p.capriotti@gmail.com> | 2012-08-13 13:36:38 +0100 |
|---|---|---|
| committer | Paolo Capriotti <p.capriotti@gmail.com> | 2012-08-13 13:36:38 +0100 |
| commit | 8240843d211ce8f4747a31943eb2e6463ba0b63a (patch) | |
| tree | ebdf47f86d9e3ec635e3100775b4f3d9e1cf9b32 /ghc/InteractiveUI.hs | |
| parent | f78b31a36b5b49afbdea199269319faca261c898 (diff) | |
| download | haskell-8240843d211ce8f4747a31943eb2e6463ba0b63a.tar.gz | |
Respect verbosity for "flags changed" message (#7139)
Also, print that message on stdout.
Diffstat (limited to 'ghc/InteractiveUI.hs')
| -rw-r--r-- | ghc/InteractiveUI.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/ghc/InteractiveUI.hs b/ghc/InteractiveUI.hs index fd5337d14d..f3f812a22e 100644 --- a/ghc/InteractiveUI.hs +++ b/ghc/InteractiveUI.hs @@ -2035,7 +2035,9 @@ newDynFlags interactive_only minus_opts = do -- the new packages. dflags2 <- getDynFlags when (packageFlags dflags2 /= packageFlags dflags0) $ do - liftIO $ hPutStrLn stderr "package flags have changed, resetting and loading new packages..." + when (verbosity dflags2 > 0) $ + liftIO . putStrLn $ + "package flags have changed, resetting and loading new packages..." GHC.setTargets [] _ <- GHC.load LoadAllTargets liftIO $ linkPackages dflags2 new_pkgs |