Unwrap script validity field in TxBodyContent

IntersectMBO · Aug 20, 2021 · 528a573 · 528a573
1 parent af2a59a
commit 528a573
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/cardano-api/src/Cardano/Api/TxBody.hs b/cardano-api/src/Cardano/Api/TxBody.hs
@@ -1593,12 +1593,12 @@ makeTransactionBody =
 
 
 pattern TxBody :: TxBodyContent ViewTx era -> TxBody era
-pattern TxBody txbodycontent <- (getTxBodyContent TxScriptValidityNone -> txbodycontent)
+pattern TxBody txbodycontent <- (getTxBodyContent -> txbodycontent)
 {-# COMPLETE TxBody #-}
 
-getTxBodyContent :: TxScriptValidity era -> TxBody era -> TxBodyContent ViewTx era
-getTxBodyContent _ (ByronTxBody body) = getByronTxBodyContent body
-getTxBodyContent scriptValidity (ShelleyTxBody era body _scripts _redeemers mAux _scriptValidity) =
+getTxBodyContent :: TxBody era -> TxBodyContent ViewTx era
+getTxBodyContent (ByronTxBody body) = getByronTxBodyContent body
+getTxBodyContent (ShelleyTxBody era body _scripts _redeemers mAux scriptValidity) =
     fromLedgerTxBody era scriptValidity body mAux