WIP

cardano-foundation · May 7, 2024 · f6e26dd · f6e26dd
1 parent 23b5d55
commit f6e26dd
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/balance-tx/lib/internal/Internal/Cardano/Write/Tx/TxWithUTxO/Gen.hs b/lib/balance-tx/lib/internal/Internal/Cardano/Write/Tx/TxWithUTxO/Gen.hs
@@ -80,10 +80,10 @@ generateWithMinimalUTxO
     -> Gen (TxWithUTxO era)
 generateWithMinimalUTxO genTx _genTxIn genTxOut = do
     tx <- genTx
-    utxo <- UTxO <$> genMapFromKeysWith genTxOut (txInputs tx)
+    utxo <- UTxO <$> genMapFromKeysWith genTxOut (txAllInputs tx)
     pure $ TxWithUTxO.constructFiltered tx utxo
   where
-    txInputs = view (bodyTxL . allInputsTxBodyF)
+    txAllInputs = view (bodyTxL . allInputsTxBodyF)
 
 -- | Generates a 'TxWithUTxO' object that has a surplus UTxO set.
 --