Skip to content
Snippets Groups Projects
Commit 59eabde0 authored by Edward Z. Yang's avatar Edward Z. Yang
Browse files

Don't pass Cabal's verbosity to GHC, fixes #3540.

parent 7d192e5c
No related branches found
No related tags found
No related merge requests found
......@@ -242,9 +242,10 @@ componentCcGhcOptions :: Verbosity -> GhcImplInfo -> LocalBuildInfo
-> BuildInfo -> ComponentLocalBuildInfo
-> FilePath -> FilePath
-> GhcOptions
componentCcGhcOptions verbosity _implInfo lbi bi clbi odir filename =
componentCcGhcOptions _verbosity _implInfo lbi bi clbi odir filename =
mempty {
ghcOptVerbosity = toFlag verbosity,
-- Use --ghc-option=-v instead!
ghcOptVerbosity = NoFlag,
ghcOptMode = toFlag GhcModeCompile,
ghcOptInputFiles = toNubListR [filename],
......@@ -268,9 +269,10 @@ componentCcGhcOptions verbosity _implInfo lbi bi clbi odir filename =
componentGhcOptions :: Verbosity -> LocalBuildInfo
-> BuildInfo -> ComponentLocalBuildInfo -> FilePath
-> GhcOptions
componentGhcOptions verbosity lbi bi clbi odir =
componentGhcOptions _verbosity lbi bi clbi odir =
mempty {
ghcOptVerbosity = toFlag verbosity,
-- Use --ghc-option=-v instead!
ghcOptVerbosity = NoFlag,
ghcOptHideAllPackages = toFlag True,
ghcOptCabal = toFlag True,
ghcOptThisUnitId = case clbi of
......
......@@ -624,7 +624,8 @@ externalSetupMethod verbosity options pkg bt mkargs = do
addRenaming (ipid, _) = (ipid, defaultRenaming)
cppMacrosFile = setupDir </> "setup_macros.h"
ghcOptions = mempty {
ghcOptVerbosity = Flag verbosity
-- Use --ghc-option=-v instead!
ghcOptVerbosity = NoFlag
, ghcOptMode = Flag GhcModeMake
, ghcOptInputFiles = toNubListR [setupHs]
, ghcOptOutputFile = Flag setupProgFile
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment