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