Fixing compilation errors after bump

Author: paolino

lib/balance-tx/lib/internal/Internal/Cardano/Write/Tx.hs

@@ -410,9 +410,10 @@ instance IsRecentEra ConwayEra where
 cardanoEraFromRecentEra
     :: RecentEra era
     -> CardanoApi.CardanoEra (CardanoApiEra era)
-cardanoEraFromRecentEra =
-    CardanoApi.shelleyBasedToCardanoEra
-    . shelleyBasedEraFromRecentEra
+cardanoEraFromRecentEra era = case shelleyBasedEraFromRecentEra era of
+    CardanoApi.ShelleyBasedEraBabbage -> CardanoApi.toCardanoEra CardanoApi.BabbageEra
+    CardanoApi.ShelleyBasedEraConway -> CardanoApi.toCardanoEra CardanoApi.ConwayEra
+    _ -> error "we are expecting only Babbage and Conway"
 
 shelleyBasedEraFromRecentEra
     :: RecentEra era

lib/cardano-api-extra/lib/Cardano/Api/Gen.hs

@@ -1012,7 +1012,7 @@ genScriptWitnessSpend langEra =
         (PlutusScriptLanguage ver) ->
             PlutusScriptWitness langEra ver
                 <$> genPlutusScriptOrReferenceInput ver
-                <*> (ScriptDatumForTxIn <$> genHashableScriptData)
+                <*> (ScriptDatumForTxIn . Just <$> genHashableScriptData)
                 <*> genHashableScriptData
                 <*> genExecutionUnits
 
@@ -1604,7 +1604,7 @@ genTxCertificates era = withEraWitness era $ \sbe ->
         [ pure TxCertificatesNone
         , TxCertificates sbe
             <$> scale (`div` 3) (listOf (genTxCertificate era))
-            <*> ( (BuildTxWith . Map.fromList)
+            <*> ( BuildTxWith
                     <$> scale
                         (`div` 3)
                         ( listOf
@@ -1780,7 +1780,7 @@ genTxBodyContent era = withEraWitness era $ \sbe -> do
     txValidityUpperBound <- genTxValidityUpperBound era
     txProposalProcedures <- genMaybeFeaturedInEra genProposals era
     txVotingProcedures <- genMaybeFeaturedInEra genVotingProcedures era
-    txCurrentTreasuryValue <- genMaybeFeaturedInEra (const genCoin) era
+    txCurrentTreasuryValue <- genMaybeFeaturedInEra (const (pure <$> genCoin)) era
     txTreasuryDonation <- genMaybeFeaturedInEra (const genCoin) era
 
     let

lib/customer-deposit-wallet/src/Cardano/Wallet/Deposit/Pure/Balance.hs

@@ -98,8 +98,8 @@ spendTxD tx !u =
   where
     inputsToExclude =
         case Tx.getScriptValidity tx of
-            Tx.IsValid True -> Tx.getInputs tx
-            Tx.IsValid False -> Tx.getCollateralInputs tx
+            Tx.IsValidC True -> Tx.getInputs tx
+            Tx.IsValidC False -> Tx.getCollateralInputs tx
 
 {-----------------------------------------------------------------------------
     Helpers

lib/wallet/src/Cardano/Wallet/Shelley/Transaction.hs

@@ -892,8 +892,8 @@ mkUnsignedTx
     , Cardano.txCertificates = case stakingScriptM of
         Nothing ->
             let
-                witMap = Map.empty
-                ctx = Cardano.BuildTxWith witMap
+                witPair = []
+                ctx = Cardano.BuildTxWith witPair
             in
                 Cardano.TxCertificates shelleyEra certs ctx
         Just stakingScript ->
@@ -907,8 +907,8 @@ mkUnsignedTx
                     Cardano.ScriptWitness
                         Cardano.ScriptWitnessForStakeAddr
                         (toScriptWitness stakingScript)
-                witMap = Map.fromList [(buildKey, buildVal)]
-                ctx = Cardano.BuildTxWith witMap
+                witPair = [(buildKey, buildVal)]
+                ctx = Cardano.BuildTxWith witPair
             in
             Cardano.TxCertificates shelleyEra certs ctx