Avoid duplicate version message

A version message is already emitted by initTxGenTracers. This is
also a cleanup, as breaking the Action abstraction is ugly. Minor
note: traceTxGeneratorVersion is no longer used.

Author: NadiaYvette

bench/tx-generator/src/Cardano/Benchmarking/Script.hs

@@ -12,13 +12,12 @@ import           Prelude
 import           Control.Concurrent (threadDelay)
 import           Control.Monad
 import           Control.Monad.IO.Class
-import           Control.Monad.Trans.Except
 
 import           Ouroboros.Network.NodeToClient (IOManager)
 
 import           Cardano.Benchmarking.Script.Action
 import           Cardano.Benchmarking.Script.Aeson (parseScriptFileAeson)
-import           Cardano.Benchmarking.Script.Core (setProtocolParameters, traceTxGeneratorVersion)
+import           Cardano.Benchmarking.Script.Core (setProtocolParameters)
 import           Cardano.Benchmarking.Script.Env
 import           Cardano.Benchmarking.Script.Types
 
@@ -38,12 +37,7 @@ runScript script iom = runActionM execScript iom >>= \case
   cleanup s a = void $ runActionMEnv s a iom
   execScript = do
     setProtocolParameters QueryLocalNode
-    case break (\case StartProtocol {} -> True ; _ -> False) script of
-      (beforeTracerInit, startProtoTracerInit : afterTracerInit) -> do
-        sequence_ $ map action beforeTracerInit
-                  ++ [action startProtoTracerInit, traceTxGeneratorVersion]
-                  ++ map action afterTracerInit
-      _ -> throwE $ UserError "runScript: StartProtocol missing"
+    forM_ script action
 
 shutDownLogging :: ActionM ()
 shutDownLogging = do