Restore liftIOAnnotated

Author: Jimbo4350

cardano-testnet/src/Testnet/Runtime.hs

@@ -124,8 +124,8 @@ startNode tp node ipv4 port _testnetMagic nodeCmd = GHC.withFrozenCallStack $ do
       socketDir = makeSocketDir tp
       logDir = makeLogDir tp
 
-  void . liftIO $ createDirectoryIfMissingNew $ logDir </> node
-  void . liftIO $ createSubdirectoryIfMissingNew tempBaseAbsPath (socketDir </> node)
+  void . liftIOAnnotated $ createDirectoryIfMissingNew $ logDir </> node
+  void . liftIOAnnotated $ createSubdirectoryIfMissingNew tempBaseAbsPath (socketDir </> node)
 
   let nodeStdoutFile = logDir </> node </> "stdout.log"
       nodeStderrFile = logDir </> node </> "stderr.log"