From 8240843d211ce8f4747a31943eb2e6463ba0b63a Mon Sep 17 00:00:00 2001 From: Paolo Capriotti Date: Mon, 13 Aug 2012 13:36:38 +0100 Subject: Respect verbosity for "flags changed" message (#7139) Also, print that message on stdout. --- ghc/InteractiveUI.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'ghc') 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 -- cgit v1.2.1