Set PACKAGE_SANDBOX #3

This commit is contained in:
Michael Snoyman 2012-11-29 19:21:07 +02:00
parent 3e92805a50
commit d0a3f81a0a

View File

@ -57,7 +57,8 @@ runTestSuite :: BuildSettings
runTestSuite settings testdir hasTestSuites prevPassed (packageName, (version, Maintainer maintainer)) = do
-- Set up a new environment that includes the sandboxed bin folder in PATH.
env' <- getEnvironment
let menv = Just $ map (fixEnv $ binDir settings) env'
let menv = Just $ ("PACKAGE_SANDBOX", packageDir settings)
: map (fixEnv $ binDir settings) env'
let run cmd args wdir handle = do
ph <- runProcess cmd args (Just wdir) menv Nothing (Just handle) (Just handle)