Commit 8240843d authored by pcapriotti's avatar pcapriotti
Browse files

Respect verbosity for "flags changed" message (#7139)

Also, print that message on stdout.
parent f78b31a3
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment