remove strThreadIndex (used nowhere)

IntersectMBO · Jun 8, 2021 · 6a3bb32 · 6a3bb32
1 parent 3d9d87c
commit 6a3bb32
Showing 1 changed file with 3 additions and 4 deletions.
diff --git a/bench/tx-generator/src/Cardano/Benchmarking/GeneratorTx/Submission.hs b/bench/tx-generator/src/Cardano/Benchmarking/GeneratorTx/Submission.hs
@@ -135,7 +135,7 @@ data SubmissionThreadStats
 data SubmissionThreadReport
   = SubmissionThreadReport
       { strStats         :: !SubmissionThreadStats
-      , strThreadIndex   :: !Natural
+--      , strThreadIndex   :: !Natural
       , strEndOfProtocol :: !UTCTime
       }
 
@@ -344,9 +344,8 @@ txSubmissionClient tr bmtr sub threadIx =
   submitReport :: SubmissionThreadStats -> m SubmissionThreadReport
   submitReport strStats = do
     strEndOfProtocol <- liftIO Clock.getCurrentTime
-    let strThreadIndex = threadIx
-        report = SubmissionThreadReport{..}
-    submitThreadReport sub threadIx (Right report)
+    let report = SubmissionThreadReport{..}
+    submitThreadReport (sReportsRefs sub) threadIx (Right report)
     pure report
 
   txToIdSize :: tx -> (gentxid, TxSizeInBytes)