diff --git a/lib/core/src/Cardano/Wallet/Primitive/Types/Tx.hs b/lib/core/src/Cardano/Wallet/Primitive/Types/Tx.hs index 34f4e36abfa..fe66ca6c864 100644 --- a/lib/core/src/Cardano/Wallet/Primitive/Types/Tx.hs +++ b/lib/core/src/Cardano/Wallet/Primitive/Types/Tx.hs @@ -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