From 99ff62f87dc6077e1b6a5b16048ab291d127749a Mon Sep 17 00:00:00 2001
From: Jordan Millar <jordan.millar@iohk.io>
Date: Fri, 19 Jul 2024 11:35:20 +0200
Subject: [PATCH] Remove use of NamedFieldPuns from substituteExecutionUnits so
 we won't miss updating the execution unit substitution for new plutus script
 purposes

---
 cardano-api/internal/Cardano/Api/Fees.hs | 11 +++--------
 1 file changed, 3 insertions(+), 8 deletions(-)

diff --git a/cardano-api/internal/Cardano/Api/Fees.hs b/cardano-api/internal/Cardano/Api/Fees.hs
index b56d613cf8..b6032bf103 100644
--- a/cardano-api/internal/Cardano/Api/Fees.hs
+++ b/cardano-api/internal/Cardano/Api/Fees.hs
@@ -1400,14 +1400,9 @@ substituteExecutionUnits
   -> Either (TxBodyErrorAutoBalance era) (TxBodyContent BuildTx era)
 substituteExecutionUnits
   exUnitsMap
-  txbodycontent@TxBodyContent
-    { txIns
-    , txWithdrawals
-    , txCertificates
-    , txMintValue
-    , txVotingProcedures
-    , txProposalProcedures
-    } = do
+  txbodycontent@(TxBodyContent txIns _ _ _ _ _ _ _ _ _ _ _ _ txWithdrawals txCertificates _
+                   txMintValue _ txProposalProcedures txVotingProcedures _ _) = do
+
     mappedTxIns <- mapScriptWitnessesTxIns txIns
     mappedWithdrawals <- mapScriptWitnessesWithdrawals txWithdrawals
     mappedMintedVals <- mapScriptWitnessesMinting txMintValue