Replace removePathForcibly to removeDirectoryRecursive

IntersectMBO · Jun 14, 2024 · f340160 · f340160
1 parent 75979d6
commit f340160
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
@@ -92,7 +92,7 @@ workspace prefixPath f = withFrozenCallStack $ do
       . register
       . 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'.