txgen-mvar: label throttle thread

Also a minor whitespace clean-up.
IntersectMBO · May 8, 2024 · 102b22c · 102b22c
1 parent 3e4c00a
commit 102b22c
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 1 deletion.
diff --git a/bench/tx-generator/src/Cardano/Benchmarking/GeneratorTx.hs b/bench/tx-generator/src/Cardano/Benchmarking/GeneratorTx.hs
@@ -170,6 +170,8 @@ walletBenchmark
     traceWith traceSubmit $ TraceBenchTxSubDebug "tpsLimitedFeeder : transmitting done"
     atomically $ sendStop tpsThrottle
     traceWith traceSubmit $ TraceBenchTxSubDebug "tpsLimitedFeeder : shutdown done"
+  let tid = asyncThreadId tpsThrottleThread
+  labelThread tid $ "tpsThrottleThread " ++ show tid
 
   let tpsFeederShutdown = do
         cancel tpsThrottleThread

diff --git a/bench/tx-generator/src/Cardano/TxGenerator/Setup/NixService.hs b/bench/tx-generator/src/Cardano/TxGenerator/Setup/NixService.hs
@@ -105,7 +105,7 @@ getNodeConfigFile :: NixServiceOptions -> Maybe FilePath
 getNodeConfigFile = _nix_nodeConfigFile
 
 setNodeConfigFile :: NixServiceOptions -> FilePath -> NixServiceOptions
-setNodeConfigFile opts filePath = opts {_nix_nodeConfigFile = Just filePath }
+setNodeConfigFile opts filePath = opts { _nix_nodeConfigFile = Just filePath }
 
 -- dropping the '_nix_ prefix of above Haskell ADT field labels is assumed
 -- to match JSON attribute names as provided by the Nix service definition