From d2aac0a64e76b64a13bc7fd067440c720f4c0e06 Mon Sep 17 00:00:00 2001
From: Jordan Millar <jordan.millar@iohk.io>
Date: Fri, 7 Jun 2024 15:07:41 +0200
Subject: [PATCH] Use removeDirectoryRecursive

---
 cardano-testnet/src/Testnet/Property/Util.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/cardano-testnet/src/Testnet/Property/Util.hs b/cardano-testnet/src/Testnet/Property/Util.hs
index e2a5d958d25..09916f53a54 100644
--- a/cardano-testnet/src/Testnet/Property/Util.hs
+++ b/cardano-testnet/src/Testnet/Property/Util.hs
@@ -81,7 +81,7 @@ workspace prefixPath f = withFrozenCallStack $ do
         ioExH _ = Handler $ \(_ :: IOException) -> pure True
     -- For some reason, the temporary directory sometimes fails, lets try multiple times before we fail
     H.evalIO $ R.recovering retryPolicy [ioExH] . const $
-      IO.removePathForcibly  ws
+      IO.removeDirectoryRecursive  ws
 
 -- | The 'FilePath' in '(FilePath -> H.Integration ())' is the work space directory.
 -- This is created (and returned) via 'H.workspace'.