diff options
| -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 |