Add more setters

Author: Jimbo4350

cardano-api/src/Cardano/Api/Experimental/Tx.hs

@@ -128,13 +128,19 @@ module Cardano.Api.Experimental.Tx
   , TxBodyContent (..)
   , defaultTxBodyContent
   , setTxCertificates
+  , setTxCollateral
+  , setTxFee
   , setTxIns
-  , setTxOuts
+  , setTxInsCollateral
+  , setTxInsReference
+  , setTxMetadata
   , setTxMintValue
+  , setTxOuts
   , setTxProposalProcedures
+  , setTxValidityLowerBound
+  , setTxValidityUpperBound
   , setTxVotingProcedures
   , setTxWithdrawals
-  , setTxFee
 
     -- * TxBodyContent sub type
   , TxCertificates (..)
@@ -143,6 +149,9 @@ module Cardano.Api.Experimental.Tx
   , TxProposalProcedures (..)
   , TxVotingProcedures (..)
   , TxWithdrawals (..)
+  , TxCollateral (..)
+  , TxExtraKeyWitnesses (..)
+  , TxInsReference (..)
 
     -- * Witness
 

cardano-api/src/Cardano/Api/Experimental/Tx/Internal/BodyContent/New.hs

@@ -27,11 +27,17 @@ module Cardano.Api.Experimental.Tx.Internal.BodyContent.New
 
     -- * Getters and Setters
   , setTxCertificates
-  , setTxIns
+  , setTxCollateral
   , setTxFee
-  , setTxOuts
+  , setTxIns
+  , setTxInsCollateral
+  , setTxInsReference
+  , setTxMetadata
   , setTxMintValue
+  , setTxOuts
   , setTxProposalProcedures
+  , setTxValidityLowerBound
+  , setTxValidityUpperBound
   , setTxVotingProcedures
   , setTxWithdrawals
   )
@@ -638,6 +644,24 @@ getDatums txInsRef txOutsFromTx = do
 setTxIns :: [(TxIn, AnyWitness era)] -> TxBodyContent era -> TxBodyContent era
 setTxIns v txBodyContent = txBodyContent{txIns = v}
 
+setTxInsCollateral :: [TxIn] -> TxBodyContent era -> TxBodyContent era
+setTxInsCollateral v txBodyContent = txBodyContent{txInsCollateral = v}
+
+setTxInsReference :: TxInsReference era -> TxBodyContent era -> TxBodyContent era
+setTxInsReference v txBodyContent = txBodyContent{txInsReference = v}
+
+setTxCollateral :: TxCollateral era -> TxBodyContent era -> TxBodyContent era
+setTxCollateral v txBodyContent = txBodyContent{txCollateral = Just v}
+
+setTxValidityLowerBound :: L.SlotNo -> TxBodyContent era -> TxBodyContent era
+setTxValidityLowerBound v txBodyContent = txBodyContent{txValidityLowerBound = Just v}
+
+setTxValidityUpperBound :: L.SlotNo -> TxBodyContent era -> TxBodyContent era
+setTxValidityUpperBound v txBodyContent = txBodyContent{txValidityUpperBound = Just v}
+
+setTxMetadata :: TxMetadata -> TxBodyContent era -> TxBodyContent era
+setTxMetadata v txBodyContent = txBodyContent{txMetadata = v}
+
 setTxFee :: L.Coin -> TxBodyContent era -> TxBodyContent era
 setTxFee v txBodyContent = txBodyContent{txFee = v}