Change the log order to be more useful

Author: v0d1ch

hydra-cluster/src/CardanoNode.hs

@@ -277,7 +277,6 @@ withCardanoNode ::
   IO a
 withCardanoNode tr stateDirectory args@CardanoNodeArgs{nodeSocket} networkId action = do
   traceWith tr $ MsgNodeCmdSpec (show $ cmdspec process)
-  traceWith tr $ MsgNodeStarting{stateDirectory}
   withLogFile logFilePath $ \out -> do
     hSetBuffering out NoBuffering
     withCreateProcess process{std_out = UseHandle out, std_err = UseHandle out} $
@@ -299,12 +298,13 @@ withCardanoNode tr stateDirectory args@CardanoNodeArgs{nodeSocket} networkId act
 
   waitForNode = do
     let nodeSocketPath = File socketPath
+    traceWith tr $ MsgNodeStarting{stateDirectory}
     waitForSocket nodeSocketPath
+    traceWith tr $ MsgSocketIsReady $ unFile nodeSocketPath
     -- we wait for synchronization since otherwise we will receive a query
     -- exception when trying to obtain pparams and the era is not the one we
     -- expect.
     _ <- waitForFullySynchronized tr networkId nodeSocketPath
-    traceWith tr $ MsgSocketIsReady $ unFile nodeSocketPath
     action nodeSocketPath
 
   cleanupSocketFile =