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