Add certs to txbody of Conway transactions

IntersectMBO · Oct 7, 2023 · c10f37e · c10f37e
1 parent 2192cdf
commit c10f37e
Showing 1 changed file with 14 additions and 13 deletions.
diff --git a/cardano-api/internal/Cardano/Api/TxBody.hs b/cardano-api/internal/Cardano/Api/TxBody.hs
@@ -2034,19 +2034,20 @@ createTransactionBody sbe txBodyContent =
                     redeemers
                     datums
                     languages
-        let ledgerTxBody = mkTxBody ShelleyBasedEraConway txBodyContent txAuxData
-                          --  & L.conwayCertsTxBodyL         .~ conwayCerts -- TODO CIP-1694
-                           & L.vldtTxBodyL                .~ validityInterval
-                           & L.collateralInputsTxBodyL    .~ collTxIns
-                           & L.reqSignerHashesTxBodyL     .~ convExtraKeyWitnesses
-                                                               apiExtraKeyWitnesses
-                           & L.mintTxBodyL                .~ convMintValue apiMintValue
-                           & L.scriptIntegrityHashTxBodyL .~ scriptIntegrityHash
-                           & L.referenceInputsTxBodyL     .~ refTxIns
-                           & L.collateralReturnTxBodyL    .~ returnCollateral
-                           & L.totalCollateralTxBodyL     .~ totalCollateral
-                           -- TODO: NetworkId for hardware wallets. We don't always want this
-                           -- & L.networkIdTxBodyL .~ ...
+        let ledgerTxBody =
+              mkTxBody ShelleyBasedEraConway txBodyContent txAuxData
+                & L.certsTxBodyL               .~ certs
+                & L.vldtTxBodyL                .~ validityInterval
+                & L.collateralInputsTxBodyL    .~ collTxIns
+                & L.reqSignerHashesTxBodyL     .~ convExtraKeyWitnesses
+                                                    apiExtraKeyWitnesses
+                & L.mintTxBodyL                .~ convMintValue apiMintValue
+                & L.scriptIntegrityHashTxBodyL .~ scriptIntegrityHash
+                & L.referenceInputsTxBodyL     .~ refTxIns
+                & L.collateralReturnTxBodyL    .~ returnCollateral
+                & L.totalCollateralTxBodyL     .~ totalCollateral
+                -- TODO: NetworkId for hardware wallets. We don't always want this
+                -- & L.networkIdTxBodyL .~ ...
         pure $ ShelleyTxBody sbe
           ledgerTxBody
           scripts