diff --git a/cardano-api/internal/Cardano/Api/Fees.hs b/cardano-api/internal/Cardano/Api/Fees.hs
index b56d613cf..b6032bf10 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