File tree Expand file tree Collapse file tree 1 file changed +2
-11
lines changed
cardano-testnet/src/Testnet Expand file tree Collapse file tree 1 file changed +2
-11
lines changed Original file line number Diff line number Diff line change @@ -44,7 +44,7 @@ import GHC.Stack
4444import qualified GHC.Stack as GHC
4545import Network.Socket (HostAddress , PortNumber )
4646import Prettyprinter (unAnnotate )
47- import RIO (runRIO , threadDelay )
47+ import RIO (runRIO )
4848import qualified System.Directory as IO
4949import System.FilePath
5050import qualified System.IO as IO
@@ -253,16 +253,7 @@ startNode tp node ipv4 port _testnetMagic nodeCmd = GHC.withFrozenCallStack $ do
253253createDirectoryIfMissingNew :: HasCallStack => FilePath -> IO FilePath
254254createDirectoryIfMissingNew directory = GHC. withFrozenCallStack $ do
255255 IO. createDirectoryIfMissing True directory
256- exists <- IO. doesDirectoryExist directory
257- if exists
258- then pure directory
259- else do
260- threadDelay 5_000_000
261- IO. createDirectoryIfMissing True directory
262- exists' <- IO. doesDirectoryExist directory
263- if exists'
264- then pure directory
265- else throwString $ " Failed to create directory: " <> directory
256+ pure directory
266257
267258
268259createSubdirectoryIfMissingNew :: ()
You can’t perform that action at this time.
0 commit comments