Tracked to appendFile

Author: Jimbo4350

cardano-testnet/src/Testnet/Runtime.hs

@@ -60,6 +60,7 @@ import           Testnet.Types (TestnetNode (..), TestnetRuntime (configurationF
 import           Hedgehog.Extras.Stock.IO.Network.Sprocket (Sprocket (..))
 import qualified Hedgehog.Extras.Stock.IO.Network.Sprocket as H
 import qualified Hedgehog.Extras.Test.Concurrent as H
+import RIO.Directory (doesFileExist)
 
 data NodeStartFailure
   = ProcessRelatedFailure ProcessError
@@ -343,8 +344,11 @@ 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 <- doesFileExist outputFp
+          if exists 
+            then liftIOAnnotated $ appendFile outputFp $ "Ledger new epoch logging failed - caught exception:\n"
+              <> displayException e <> "\n"
+            else error $ "File does not exist: " <> outputFp
           pure ConditionMet
 
 calculateEpochStateDiff