Use removeDirectoryRecursive

IntersectMBO · Jun 7, 2024 · d2aac0a · d2aac0a
1 parent a6a8f55
commit d2aac0a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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'.