Commit 1f772ad8 authored by Alex Washburn's avatar Alex Washburn Committed by recursion-ninja

Correcting local variable name.

parent e4467127
...@@ -302,7 +302,7 @@ componentCxxGhcOptions :: Verbosity -> GhcImplInfo -> LocalBuildInfo ...@@ -302,7 +302,7 @@ componentCxxGhcOptions :: Verbosity -> GhcImplInfo -> LocalBuildInfo
-> BuildInfo -> ComponentLocalBuildInfo -> BuildInfo -> ComponentLocalBuildInfo
-> FilePath -> FilePath -> FilePath -> FilePath
-> GhcOptions -> GhcOptions
componentCxxGhcOptions verbosity _implInfo lbi bi cxxlbi odir filename = componentCxxGhcOptions verbosity _implInfo lbi bi clbi odir filename =
mempty { mempty {
-- Respect -v0, but don't crank up verbosity on GHC if -- Respect -v0, but don't crank up verbosity on GHC if
-- Cabal verbosity is requested. For that, use --ghc-option=-v instead! -- Cabal verbosity is requested. For that, use --ghc-option=-v instead!
...@@ -320,7 +320,7 @@ componentCxxGhcOptions verbosity _implInfo lbi bi cxxlbi odir filename = ...@@ -320,7 +320,7 @@ componentCxxGhcOptions verbosity _implInfo lbi bi cxxlbi odir filename =
++ [buildDir lbi </> dir | dir <- PD.includeDirs bi], ++ [buildDir lbi </> dir | dir <- PD.includeDirs bi],
ghcOptHideAllPackages= toFlag True, ghcOptHideAllPackages= toFlag True,
ghcOptPackageDBs = withPackageDB lbi, ghcOptPackageDBs = withPackageDB lbi,
ghcOptPackages = toNubListR $ mkGhcOptPackages cxxlbi, ghcOptPackages = toNubListR $ mkGhcOptPackages clbi,
ghcOptCxxOptions = toNubListR $ ghcOptCxxOptions = toNubListR $
(case withOptimization lbi of (case withOptimization lbi of
NoOptimisation -> [] NoOptimisation -> []
......
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