View on GitHub
File Changes
            hks <- getHooks wallet
            if waitingForBlockchainActions hks
                then do
-
                    submitLedgerTxConstraints wallet
+
                    submitPendingTransactions wallet
                    handleUtxoQueries wallet
                    handleOwnPubKeyQueries wallet
                    go (j + 1)
-- | Submit the wallet's pending transactions to the blockchain
--   and inform all wallets about new transactions and respond to
--   UTXO queries
-
submitLedgerTxConstraints
+
submitPendingTransactions
    :: ( MonadEmulator (TraceError e) m
       , HasWatchAddress s
       , HasWriteTx s
       , HasTxConfirmation s
       )
    => Wallet
    -> ContractTrace s e m a ()
-
submitLedgerTxConstraints wllt = do
+
submitPendingTransactions wllt = do
    utxs <- unbalancedTransactions wllt
    traverse_ (submitUnbalancedTx wllt >=> traverse_ addTxEvents) utxs