Skip to content
Snippets Groups Projects
Commit 25807bee authored by Duncan Coutts's avatar Duncan Coutts
Browse files

Merge pull request #2466 from edsko/bugfix/package-key

Make sure to pass the package key to ghc
parents 121c9de9 3e78870d
No related branches found
No related tags found
No related merge requests found
......@@ -162,7 +162,6 @@ haddock pkg_descr _ _ haddockFlags
++ " --benchmarks flags."
haddock pkg_descr lbi suffixes flags = do
setupMessage verbosity "Running Haddock for" (packageId pkg_descr)
(confHaddock, version, _) <-
requireProgramVersion verbosity haddockProgram
......@@ -308,9 +307,10 @@ fromLibrary verbosity tmp lbi lib clbi htmlTemplate haddockVersion = do
-- haddock stomps on our precious .hi
-- and .o files. Workaround by telling
-- haddock to write them elsewhere.
ghcOptObjDir = toFlag tmp,
ghcOptHiDir = toFlag tmp,
ghcOptStubDir = toFlag tmp
ghcOptObjDir = toFlag tmp,
ghcOptHiDir = toFlag tmp,
ghcOptStubDir = toFlag tmp,
ghcOptPackageKey = toFlag $ pkgKey lbi
} `mappend` getGhcCppOpts haddockVersion bi
sharedOpts = vanillaOpts {
ghcOptDynLinkMode = toFlag GhcDynamicOnly,
......@@ -498,8 +498,7 @@ renderPureArgs version comp args = concat
, "--package-version="++display (pkgVersion pkg)
])
. fromFlag . argPackageName $ args
else (\pname -> ["--optghc=-package-name", "--optghc=" ++ pname])
. display . fromFlag . argPackageName $ args
else []
, (\(All b,xs) -> bool (map (("--hide=" ++). display) xs) [] b)
. argHideModules $ args
......
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