Skip to content

Commit 6f63358

Browse files
committed
Remove handleException changes
1 parent c2484e1 commit 6f63358

File tree

1 file changed

+2
-11
lines changed

1 file changed

+2
-11
lines changed

cardano-testnet/src/Testnet/Runtime.hs

Lines changed: 2 additions & 11 deletions
Original file line numberDiff line numberDiff line change
@@ -44,7 +44,7 @@ import GHC.Stack
4444
import qualified GHC.Stack as GHC
4545
import Network.Socket (HostAddress, PortNumber)
4646
import Prettyprinter (unAnnotate)
47-
import RIO (runRIO, threadDelay)
47+
import RIO (runRIO)
4848
import qualified System.Directory as IO
4949
import System.FilePath
5050
import qualified System.IO as IO
@@ -253,16 +253,7 @@ startNode tp node ipv4 port _testnetMagic nodeCmd = GHC.withFrozenCallStack $ do
253253
createDirectoryIfMissingNew :: HasCallStack => FilePath -> IO FilePath
254254
createDirectoryIfMissingNew 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

268259
createSubdirectoryIfMissingNew :: ()

0 commit comments

Comments
 (0)