diff options
| author | Daniel Gröber <dxld@darkboxed.org> | 2015-04-15 23:30:00 +0200 |
|---|---|---|
| committer | Daniel Gröber <dxld@darkboxed.org> | 2015-04-15 23:30:23 +0200 |
| commit | fe123a05030bacde5ad82bb0819ac8f50cbdc7a5 (patch) | |
| tree | c040df3f1562731166f908b6caa4edb6df85d137 /CabalHelper | |
| parent | 125908ae40d2b229926ed5ec57b52dd6a41d269e (diff) | |
Cabal passes -v0 down to ghc :(
Diffstat (limited to 'CabalHelper')
| -rw-r--r-- | CabalHelper/Main.hs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/CabalHelper/Main.hs b/CabalHelper/Main.hs index a09a634..6d75351 100644 --- a/CabalHelper/Main.hs +++ b/CabalHelper/Main.hs @@ -165,7 +165,7 @@ main = do [] -> removeInplaceDeps v lbi pd clbi - opts = componentGhcOptions v lbi bi clbi' outdir + opts = componentGhcOptions normal lbi bi clbi' outdir in renderGhcOptions' lbi v (opts `mappend` adopts) return $ Just $ ChResponseStrings (res ++ [(ChSetupHsName, [])]) @@ -175,7 +175,7 @@ main = do (clbi', adopts) = case flags of ["--with-inplace"] -> (clbi, mempty) [] -> removeInplaceDeps v lbi pd clbi - opts = componentGhcOptions v lbi bi clbi' outdir + opts = componentGhcOptions normal lbi bi clbi' outdir comp = compiler lbi opts' = mempty { @@ -199,7 +199,7 @@ main = do (clbi', adopts) = case flags of ["--with-inplace"] -> (clbi, mempty) [] -> removeInplaceDeps v lbi pd clbi - opts = componentGhcOptions v lbi bi clbi' outdir + opts = componentGhcOptions normal lbi bi clbi' outdir opts' = mempty { ghcOptPackageDBs = ghcOptPackageDBs opts, @@ -216,7 +216,7 @@ main = do (clbi', adopts) = case flags of ["--with-inplace"] -> (clbi, mempty) [] -> removeInplaceDeps v lbi pd clbi - opts = componentGhcOptions v lbi bi clbi' outdir + opts = componentGhcOptions normal lbi bi clbi' outdir opts' = mempty { ghcOptPackageDBs = [GlobalPackageDB, UserPackageDB], @@ -349,7 +349,7 @@ removeInplaceDeps v lbi pd clbi = let (lib, libclbi) = getLibraryClbi pd lbi libbi = libBuildInfo lib liboutdir = componentOutDir lbi (CLib lib) - libopts = (componentGhcOptions v lbi libbi libclbi liboutdir) { + libopts = (componentGhcOptions normal lbi libbi libclbi liboutdir) { ghcOptPackageDBs = [] } |