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

Workaround for some test failures

Browse Source
This commit is contained in:
Michael Snoyman 2013-12-05 11:44:27 +02:00
parent 9f46ad07ec
commit b02fbaafa4
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Stackage/Test.hs
View File

@ -86,8 +86,12 @@ runTestSuite settings testdir (packageName, SelectedPackageInfo {..}) = do
env' <- getModifiedEnv settings env' <- getModifiedEnv settings
let menv addGPP let menv addGPP
= Just $ (if addGPP then (("GHC_PACKAGE_PATH", packageDir settings ++ ":"):) else id) = Just $ (if addGPP then (("GHC_PACKAGE_PATH", packageDir settings ++ ":"):) else id)
$ ("HASKELL_PACKAGE_SANDBOX", packageDir settings) $ addSandbox env'
: env' -- FIXME why do these packages require the workaround?
bannedSandboxVar = map PackageName $ words "wai-logger warp"
addSandbox
| packageName `elem` bannedSandboxVar = id
| otherwise = (("HASKELL_PACKAGE_SANDBOX", packageDir settings):)
let runGen addGPP cmd args wdir handle' = do let runGen addGPP cmd args wdir handle' = do
ph <- runProcess cmd args (Just wdir) (menv addGPP) Nothing (Just handle') (Just handle') ph <- runProcess cmd args (Just wdir) (menv addGPP) Nothing (Just handle') (Just handle')