Skip to content

Commit

Permalink
[FAIL] Adjust Types.Tx.txIns to return all TxIn values of a Tx.
Browse files Browse the repository at this point in the history
Previously, the collateral inputs were omitted.

This commit does not yet fix the test failure within `ModelSpec`.
  • Loading branch information
jonathanknowles committed Jun 21, 2022
1 parent ce940ba commit 99e5139
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion lib/core/src/Cardano/Wallet/Primitive/Types/Tx.hs
Original file line number Diff line number Diff line change
Expand Up @@ -307,7 +307,7 @@ instance Buildable TxScriptValidity where
build TxScriptInvalid = "invalid"

txIns :: Set Tx -> Set TxIn
txIns = foldMap (Set.fromList . inputs)
txIns = foldMap (\tx -> Set.fromList (inputs tx <> collateralInputs tx))

inputs :: Tx -> [TxIn]
inputs = map fst . resolvedInputs
Expand Down

0 comments on commit 99e5139

Please sign in to comment.