Final fix

CI fails to create the log file without this change

Author: Jimbo4350

cardano-testnet/src/Testnet/Runtime.hs

@@ -5,7 +5,6 @@
 {-# LANGUAGE FlexibleInstances #-}
 {-# LANGUAGE GADTs #-}
 {-# LANGUAGE LambdaCase #-}
-{-# LANGUAGE NumericUnderscores #-}
 {-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE ScopedTypeVariables #-}
 
@@ -44,7 +43,7 @@ import           GHC.Stack
 import qualified GHC.Stack as GHC
 import           Network.Socket (HostAddress, PortNumber)
 import           Prettyprinter (unAnnotate)
-import           RIO (runRIO, threadDelay)
+import           RIO (runRIO)
 import qualified System.Directory as IO
 import           System.FilePath
 import qualified System.IO as IO
@@ -253,16 +252,7 @@ startNode tp node ipv4 port _testnetMagic nodeCmd = GHC.withFrozenCallStack $ do
 createDirectoryIfMissingNew :: HasCallStack => FilePath -> IO FilePath
 createDirectoryIfMissingNew directory = GHC.withFrozenCallStack $ do
   IO.createDirectoryIfMissing True directory
-  exists <- IO.doesDirectoryExist directory
-  if exists
-    then pure directory
-    else do 
-      threadDelay 5_000_000 
-      IO.createDirectoryIfMissing True directory
-      exists' <- IO.doesDirectoryExist directory
-      if exists'
-        then pure directory
-        else throwString $ "Failed to create directory: " <> directory
+  pure directory
 
 
 createSubdirectoryIfMissingNew :: ()
@@ -343,8 +333,15 @@ startLedgerNewEpochStateLogging testnetRuntime tmpWorkspace = withFrozenCallStac
         -- | Handle all sync exceptions and log them into the log file. We don't want to fail the test just
         -- because logging has failed.
         handleException = handle $ \(e :: SomeException) -> do
-          liftIOAnnotated $ appendFile outputFp $ "Ledger new epoch logging failed - caught exception:\n"
-            <> displayException e <> "\n"
+          exists <- liftIO $ IO.doesFileExist outputFp 
+          if exists 
+            then liftIO $ appendFile outputFp $ "Ledger new epoch logging failed - caught exception:\n"
+                   <> displayException e <> "\n"
+            else 
+              liftIO $ writeFile outputFp $ unlines 
+                 ["Ledger new epoch logging failed - caught exception:"
+                 , displayException e
+                 ]
           pure ConditionMet
 
 calculateEpochStateDiff