tx-submission: label TVars in tests

Author: coot

ouroboros-network/sim-tests-lib/Test/Ouroboros/Network/TxSubmission/TxSubmissionV2.hs

@@ -122,7 +122,7 @@ runTxSubmissionV2
      , MonadMVar  m
      , MonadSay   m
      , MonadST    m
-     , MonadSTM   m
+     , MonadLabelledSTM m
      , MonadTimer m
      , MonadThrow m
      , MonadThrow (STM m)
@@ -158,7 +158,9 @@ runTxSubmissionV2 tracer tracerDST tracerTxLogic state txDecisionPolicy = do
 
     txChannelsMVar <- Strict.newMVar (TxChannels Map.empty)
     sharedTxStateVar <- newSharedTxStateVar
+    labelTVarIO sharedTxStateVar "shared-tx-state"
     gsvVar <- Strict.newTVarIO Map.empty
+    labelTVarIO gsvVar "gsv"
 
     runTxSubmission state'
                     txChannelsMVar