cardano-api: 10.8

Author: locallycompact

flake.lock

@@ -78,7 +78,7 @@ library
     , aeson                   >=2
     , base                    >=4.16
     , bytestring
-    , cardano-api             ^>=10.6
+    , cardano-api             ^>=10.8
     , cardano-api:gen
     , cardano-binary
     , cardano-crypto-class

hydra-cardano-api/hydra-cardano-api.cabal

@@ -360,12 +360,6 @@ pattern TxAuxScripts{txAuxScripts'} <-
 -- ** TxBody
 
 type TxBody = Cardano.Api.TxBody Era
-{-# COMPLETE TxBody #-}
-
-pattern TxBody :: TxBodyContent ViewTx -> TxBody
-pattern TxBody{txBodyContent} <-
-  Cardano.Api.TxBody txBodyContent
-{-# COMPLETE TxBody #-}
 
 createAndValidateTransactionBody :: TxBodyContent BuildTx -> Either TxBodyError TxBody
 createAndValidateTransactionBody = Cardano.Api.createTransactionBody shelleyBasedEra

hydra-cardano-api/src/Hydra/Cardano/Api.hs

@@ -48,7 +48,7 @@ renderTxWithUTxO utxo (Tx body _wits) =
  where
   Api.ShelleyTxBody _lbody scripts scriptsData _auxData _validity = body
   outs = txOuts content
-  TxBody content = body
+  content = getTxBodyContent body
 
   inputLines =
     "== INPUTS (" <> show (length (txIns content)) <> ")"

hydra-cardano-api/src/Hydra/Cardano/Api/Pretty.hs

@@ -56,7 +56,7 @@ utxoProducedByTx tx =
     zip [0 ..] (txOuts body)
       <&> bimap (mkTxIn tx) toCtxUTxOTxOut
  where
-  TxBody body = getTxBody tx
+  body = getTxBodyContent $ getTxBody tx
 
 -- * Type Conversions
 

hydra-cardano-api/src/Hydra/Cardano/Api/Tx.hs

@@ -27,8 +27,8 @@ withWitness txIn =
 
 -- | Access inputs of a transaction, as an ordered list.
 txIns' :: Tx era -> [TxIn]
-txIns' (getTxBody -> txBody) =
-  let TxBody TxBodyContent{txIns} = txBody
+txIns' (getTxBodyContent . getTxBody -> txBodyContent) =
+  let TxBodyContent{txIns} = txBodyContent
    in fst <$> txIns
 
 -- | Access inputs of a transaction, as an ordered set.

hydra-cardano-api/src/Hydra/Cardano/Api/TxIn.hs

@@ -20,8 +20,8 @@ import PlutusLedgerApi.V3 qualified as Plutus
 -- * Extras
 
 txOuts' :: Tx era -> [TxOut CtxTx era]
-txOuts' (getTxBody -> txBody) =
-  let TxBody TxBodyContent{txOuts} = txBody
+txOuts' (getTxBodyContent . getTxBody -> txBody) =
+  let TxBodyContent{txOuts} = txBody
    in txOuts
 
 -- | Modify a 'TxOut' to set the minimum ada on the value.