Add certs support in compatible Tx building

IntersectMBO · Nov 25, 2024 · 2b524fd · 2b524fd
1 parent 4dde2e6
commit 2b524fd
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/cardano-api/internal/Cardano/Api/Tx/Compatible.hs b/cardano-api/internal/Cardano/Api/Tx/Compatible.hs
@@ -62,8 +62,9 @@ createCompatibleSignedTx
   -- ^ Fee
   -> AnyProtocolUpdate era
   -> AnyVote era
+  -> TxCertificates BuildTx era
   -> Either ProtocolParametersConversionError (Tx era)
-createCompatibleSignedTx sbeF ins outs witnesses txFee' anyProtocolUpdate anyVote =
+createCompatibleSignedTx sbeF ins outs witnesses txFee' anyProtocolUpdate anyVote txCertificates' =
   shelleyBasedEraConstraints sbeF $ do
     tx <- case anyProtocolUpdate of
       ProtocolUpdate shelleyToBabbageEra updateProposal -> do
@@ -97,7 +98,8 @@ createCompatibleSignedTx sbeF ins outs witnesses txFee' anyProtocolUpdate anyVot
             txbody =
               conwayEraOnwardsConstraints conwayOnwards $
                 createCommonTxBody sbe ins outs txFee'
-                  & L.referenceInputsTxBodyL .~ fromList referenceInputs
+                  & L.referenceInputsTxBodyL .~ fromList referenceInputs -- TODO add refinputs from certs here
+                  & L.certsTxBodyL .~ convCertificates sbe txCertificates' -- TODO most likely that's not a single place needing update
                   & L.proposalProceduresTxBodyL
                     .~ proposals