Use cardano-api HEAD

cabal.project

@@ -44,3 +44,10 @@ test-show-details: direct
 
 program-options
   ghc-options: -fwrite-ide-info
+
+source-repository-package
+  type: git
+  location: https://github.com/IntersectMBO/cardano-api
+  tag: 00f025d1fda127d0f7b2e69227e298199bea1fe1
+  --sha256: sha256-GttvKWo+2SytPW59a1JIYSpdlTr+7mcWvvK+EPAgH/k=
+  subdir: cardano-api

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

@@ -68,6 +68,7 @@ import Cardano.Api as X hiding (
   blue,
   createAndValidateTransactionBody,
   defaultTxBodyContent,
+  fromLedgerUTxO,
   fromLedgerValue,
   green,
   makeShelleyKeyWitness,
@@ -83,16 +84,12 @@ import Cardano.Api as X hiding (
   toLedgerValue,
   (<+>),
  )
-import Cardano.Api.Byron as X (
-  Address (..),
- )
 import Cardano.Api.Experimental as X (UnsignedTx (..))
 import Cardano.Api.Ledger as X (
   PParams,
  )
 import Cardano.Api.Shelley as X (
   AcquiringFailure (..),
-  Address (..),
   Hash (HeaderHash),
   Key (..),
   PlutusScriptOrReferenceInput (PScript),
@@ -397,6 +394,7 @@ pattern TxBodyContent ::
   TxValidityUpperBound ->
   TxMetadataInEra ->
   TxAuxScripts ->
+  BuildTxWith buidl (TxSupplementalDatums Era) ->
   TxExtraKeyWitnesses ->
   BuildTxWith buidl (Maybe (LedgerProtocolParameters Era)) ->
   TxWithdrawals buidl Era ->
@@ -421,6 +419,7 @@ pattern TxBodyContent
   , txValidityUpperBound
   , txMetadata
   , txAuxScripts
+  , txSupplementalDatums
   , txExtraKeyWits
   , txProtocolParams
   , txWithdrawals
@@ -445,6 +444,7 @@ pattern TxBodyContent
     txValidityUpperBound
     txMetadata
     txAuxScripts
+    txSupplementalDatums
     txExtraKeyWits
     txProtocolParams
     txWithdrawals

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

@@ -4,7 +4,6 @@ module Hydra.Cardano.Api.Address where
 
 import Hydra.Cardano.Api.Prelude
 
-import Cardano.Api.Byron (Address (..))
 import Cardano.Binary (unsafeDeserialize')
 import Cardano.Chain.Common qualified as Ledger
 import Data.ByteString qualified as BS

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

@@ -2,7 +2,6 @@ module Hydra.Cardano.Api.AddressInEra where
 
 import Hydra.Cardano.Api.Prelude
 
-import Cardano.Api.Byron (Address (..))
 import Cardano.Ledger.Address qualified as Ledger
 import Cardano.Ledger.BaseTypes qualified as Ledger
 import Cardano.Ledger.Credential qualified as Ledger

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

@@ -58,7 +58,6 @@ modifyTxOutAddress fn (TxOut addr value dat ref) =
 -- | Alter the value of a 'TxOut' with the given transformation.
 modifyTxOutValue ::
   IsMaryBasedEra era =>
-  IsShelleyBasedEra era =>
   (Value -> Value) ->
   TxOut ctx era ->
   TxOut ctx era
@@ -159,7 +158,7 @@ toLedgerTxOut =
 -- Plutus addresses are stripped off it.
 fromPlutusTxOut ::
   forall era.
-  (IsMaryBasedEra era, IsAlonzoBasedEra era, IsBabbageBasedEra era, IsShelleyBasedEra era) =>
+  IsBabbageBasedEra era =>
   Network ->
   Plutus.TxOut ->
   Maybe (TxOut CtxUTxO era)

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

@@ -5,7 +5,6 @@ import Hydra.Cardano.Api.Prelude
 -- | Inject some 'Value' into a 'TxOutValue'
 mkTxOutValue ::
   forall era.
-  IsShelleyBasedEra era =>
   IsMaryBasedEra era =>
   Value ->
   TxOutValue era

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

@@ -1,6 +1,6 @@
 module Hydra.Cardano.Api.UTxO where
 
-import Hydra.Cardano.Api.Prelude
+import Hydra.Cardano.Api.Prelude hiding (fromLedgerUTxO)
 import Hydra.Cardano.Api.TxId (toLedgerTxId)
 import Hydra.Cardano.Api.TxIn (fromLedgerTxIn, toLedgerTxIn, txIns')
 import Hydra.Cardano.Api.TxOut (fromLedgerTxOut, toLedgerTxOut)

hydra-cluster/test/Test/EndToEndSpec.hs

@@ -702,6 +702,7 @@ initAndClose tmpDir tracer clusterIx hydraScriptsTxId node@RunningNode{nodeSocke
                   , "datum" .= Null
                   , "datumhash" .= Null
                   , "inlineDatum" .= Null
+                  , "inlineDatumRaw" .= Null
                   , "referenceScript" .= Null
                   ]
               )
@@ -713,6 +714,7 @@ initAndClose tmpDir tracer clusterIx hydraScriptsTxId node@RunningNode{nodeSocke
                   , "datum" .= Null
                   , "datumhash" .= Null
                   , "inlineDatum" .= Null
+                  , "inlineDatumRaw" .= Null
                   , "referenceScript" .= Null
                   ]
               )