haskell/stackage
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage.git synced 2026-03-11 03:06:35 +01:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

Fix path relativity in package db

Browse Source
This commit is contained in:
Chris Done 2015-01-13 19:26:30 +01:00
parent d944971a10
commit c109bbaa2e
1 changed files with 30 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
Stackage/ShakeBuild.hs
View File

@ -94,29 +94,42 @@ packageTarget pb shakeDir name plan = do
() <- cmd cwd env "cabal" "copy"
() <- cmd cwd env "cabal" "register"
makeFile (targetForPackage shakeDir name)
where cwd = Cwd pkgDir
defaultEnv pwd = [("HASKELL_PACKAGE_SANDBOX",pwd <//> targetForDb shakeDir pb)]
opts pwd = ["--package-db=clear"
,"--package-db=global"
,"--libdir=" ++ pwd <//> pbLibDir pb
,"--bindir=" ++ pwd <//> pbBinDir pb
,"--datadir=" ++ pwd <//> pbDataDir pb
,"--docdir=" ++ pwd <//> pbDocDir pb
,"--flags=" ++ flags] ++
["--package-db=" ++ pwd <//> targetForDb shakeDir pb
|not (pbGlobalInstall pb)]
where cwd =
Cwd pkgDir
defaultEnv pwd =
[ ( "HASKELL_PACKAGE_SANDBOX"
, pwd <//>
targetForDb shakeDir pb)]
opts pwd =
[ "--package-db=clear"
, "--package-db=global"
, "--libdir=" ++ pwd <//> pbLibDir pb
, "--bindir=" ++ pwd <//> pbBinDir pb
, "--datadir=" ++ pwd <//> pbDataDir pb
, "--docdir=" ++ pwd <//> pbDocDir pb
, "--flags=" ++ flags] ++
["--package-db=" ++
pwd <//>
targetForDb shakeDir pb | not (pbGlobalInstall pb)]
pkgDir =
shakeDir <//> nameVer
nameVer =
display name ++
"-" ++
display (ppVersion plan)
flags = unwords $ map go $ M.toList (pcFlagOverrides (ppConstraints plan))
where
go (name', isOn) = concat
[ if isOn then "" else "-"
, T.unpack (unFlagName name')
]
flags =
unwords $
map go $
M.toList
(pcFlagOverrides
(ppConstraints plan))
where
go (name',isOn) =
concat
[ if isOn
then ""
else "-"
, T.unpack (unFlagName name')]
-- | Get the target file for confirming that all packages have been
-- pre-fetched.