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