From 2b524fd2bbe9e3c552a153bf5204f20d540f1378 Mon Sep 17 00:00:00 2001
From: Mateusz Galazyn <mateusz.galazyn@iohk.io>
Date: Mon, 25 Nov 2024 20:34:18 +0100
Subject: [PATCH] Add certs support in compatible Tx building

---
 cardano-api/internal/Cardano/Api/Tx/Compatible.hs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/cardano-api/internal/Cardano/Api/Tx/Compatible.hs b/cardano-api/internal/Cardano/Api/Tx/Compatible.hs
index da05768d01..0e33d3a6e0 100644
--- 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