From b720d1688ff8590f5361704b5dfae38aed4c9bf5 Mon Sep 17 00:00:00 2001
From: Artem Pelenitsyn <a.pelenitsyn@gmail.com>
Date: Wed, 21 Jun 2023 10:32:40 -0400
Subject: [PATCH] testsuite: use removeDirectoryRecursiveHack to cleanup
This is supposedly more robust on Windows than removeDirectoryRecursive.
---
cabal-testsuite/src/Test/Cabal/Monad.hs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/cabal-testsuite/src/Test/Cabal/Monad.hs b/cabal-testsuite/src/Test/Cabal/Monad.hs
index 93207511ea..7b9aa9de9a 100644
--- a/cabal-testsuite/src/Test/Cabal/Monad.hs
+++ b/cabal-testsuite/src/Test/Cabal/Monad.hs
@@ -346,7 +346,7 @@ runTestM mode m = withSystemTempDirectory "cabal-testsuite" $ \tmp_dir -> do
where
cleanup = do
env <- getTestEnv
- onlyIfExists . removeDirectoryRecursive $ testWorkDir env
+ onlyIfExists . removeDirectoryRecursiveHack $ testWorkDir env
-- NB: it's important to initialize this ourselves, as
-- the default configuration hardcodes Hackage, which we do
-- NOT want to assume for these tests (no test should
--
GitLab