Merge pull request #5516 from input-output-hk/td/8.6

Integrate latest ledger, consensus, api and cli for 8.6.0

Author: teodanciu

bench/plutus-scripts-bench/plutus-scripts-bench.cabal

@@ -1,6 +1,6 @@
 cabal-version:          3.0
 name:                   plutus-scripts-bench
-version:                1.0.0.4
+version:                1.0.0.5
 synopsis:               Plutus scripts used for benchmarking
 description:            Plutus scripts used for benchmarking.
 category:               Cardano,
@@ -72,7 +72,7 @@ library
   -- IOG dependencies
   --------------------------
   build-depends:
-    , cardano-api ^>= 8.25
+    , cardano-api ^>= 8.29
     , plutus-ledger-api       >=1.0.0
     , plutus-tx               >=1.0.0
     , plutus-tx-plugin        >=1.0.0

bench/tx-generator/src/Cardano/Benchmarking/GeneratorTx/SizedMetadata.hs

@@ -109,19 +109,20 @@ metadataSize :: forall era . IsShelleyBasedEra era => AsType era -> Maybe TxMeta
 metadataSize p m = dummyTxSize p m - dummyTxSize p Nothing
 
 dummyTxSizeInEra :: forall era . IsShelleyBasedEra era => TxMetadataInEra era -> Int
-dummyTxSizeInEra metadata = case createAndValidateTransactionBody dummyTx of
+dummyTxSizeInEra metadata = case createAndValidateTransactionBody (cardanoEra @era) dummyTx of
   Right b -> BS.length $ serialiseToCBOR b
   Left err -> error $ "metaDataSize " ++ show err
  where
   dummyTx :: TxBodyContent BuildTx era
-  dummyTx = defaultTxBodyContent
+  dummyTx = defaultTxBodyContent (cardanoEra @era)
     & setTxIns
       [ ( TxIn "dbaff4e270cfb55612d9e2ac4658a27c79da4a5271c6f90853042d1403733810" (TxIx 0)
         , BuildTxWith $ KeyWitness KeyWitnessForSpending
         )
       ]
     & setTxFee (mkTxFee 0)
-    & setTxValidityRange (TxValidityNoLowerBound, mkTxValidityUpperBound 0)
+    & setTxValidityLowerBound TxValidityNoLowerBound
+    & setTxValidityUpperBound (mkTxValidityUpperBound 0)
     & setTxMetadata metadata
 
 dummyTxSize :: forall era . IsShelleyBasedEra era => AsType era -> Maybe TxMetadata -> Int

bench/tx-generator/src/Cardano/Benchmarking/GeneratorTx/Submission.hs

@@ -47,7 +47,7 @@ import           Cardano.Tracing.OrphanInstances.Shelley ()
 
 import           Ouroboros.Network.Protocol.TxSubmission2.Type (TokBlockingStyle (..))
 
-import           Cardano.Api
+import           Cardano.Api hiding (Active)
 import           Cardano.TxGenerator.Types (TPSRate, TxGenError)
 
 import           Cardano.Benchmarking.LogTypes

bench/tx-generator/src/Cardano/Benchmarking/GeneratorTx/SubmissionClient.hs

@@ -59,7 +59,7 @@ import           Ouroboros.Network.Protocol.TxSubmission2.Client (ClientStIdle (
 import           Ouroboros.Network.Protocol.TxSubmission2.Type (BlockingReplyList (..),
                                                                 TokBlockingStyle (..), TxSizeInBytes)
 
-import           Cardano.Api
+import           Cardano.Api hiding (Active)
 import           Cardano.Api.Shelley (fromShelleyTxId, toConsensusGenTx)
 
 import           Cardano.Logging

bench/tx-generator/src/Cardano/Benchmarking/Script/Core.hs

@@ -111,7 +111,7 @@ addFund era wallet txIn lovelace keyName = do
   fundKey  <- getEnvKeys keyName
   let
     mkOutValue :: forall era. IsShelleyBasedEra era => AsType era -> ActionM (InAnyCardanoEra TxOutValue)
-    mkOutValue _ = return $ InAnyCardanoEra (cardanoEra @era) (lovelaceToTxOutValue lovelace)
+    mkOutValue _ = return $ InAnyCardanoEra (cardanoEra @era) (lovelaceToTxOutValue (cardanoEra @era) lovelace)
   outValue <- withEra era mkOutValue
   addFundToWallet wallet txIn outValue fundKey
 
@@ -187,7 +187,7 @@ queryRemoteProtocolParameters = do
         res <- liftIO $ queryNodeLocalState localNodeConnectInfo (Just $ chainTipToChainPoint chainTip) (QueryInEra eraInMode query)
         case res of
           Right (Right pp) -> do
-            let pp' = fromLedgerPParams shelleyEra pp 
+            let pp' = fromLedgerPParams shelleyEra pp
                 pparamsFile = "protocol-parameters-queried.json"
             liftIO $ BSL.writeFile pparamsFile $ prettyPrintOrdered pp'
             traceDebug $ "queryRemoteProtocolParameters : query result saved in: " ++ pparamsFile
@@ -296,7 +296,7 @@ evalGenerator generator txParams@TxGenTxParams{txParamFee = fee} era = do
   protocolParameters <- getProtocolParameters
   case convertToLedgerProtocolParameters (shelleyBasedEra @era) protocolParameters of
     Left err -> throwE (Env.TxGenError (ApiError err))
-    Right ledgerParameters -> 
+    Right ledgerParameters ->
       case generator of
         SecureGenesis wallet genesisKeyName destKeyName -> do
           genesis  <- getEnvGenesis

bench/tx-generator/src/Cardano/TxGenerator/Genesis.hs

@@ -61,7 +61,8 @@ genesisInitialFunds :: forall era. IsShelleyBasedEra era
   -> ShelleyGenesis
   -> [(AddressInEra era, Lovelace)]
 genesisInitialFunds networkId g
- = [ ( shelleyAddressInEra $ makeShelleyAddress networkId (fromShelleyPaymentCredential pcr) (fromShelleyStakeReference stref)
+ = [ ( shelleyAddressInEra (shelleyBasedEra @era) $
+          makeShelleyAddress networkId (fromShelleyPaymentCredential pcr) (fromShelleyStakeReference stref)
      , fromShelleyLovelace coin
      )
      | (Addr _ pcr stref, coin) <- ListMap.toList $ sgInitialFunds g
@@ -122,14 +123,15 @@ mkGenesisTransaction :: forall era .
 mkGenesisTransaction key ttl fee txins txouts
   = bimap
       ApiError
-      (`signShelleyTransaction` [WitnessGenesisUTxOKey key])
-      (createAndValidateTransactionBody txBodyContent)
+      (\b -> signShelleyTransaction (shelleyBasedEra @era) b [WitnessGenesisUTxOKey key])
+      (createAndValidateTransactionBody (cardanoEra @era) txBodyContent)
  where
-  txBodyContent = defaultTxBodyContent
+  txBodyContent = defaultTxBodyContent (cardanoEra @era)
     & setTxIns (zip txins $ repeat $ BuildTxWith $ KeyWitness KeyWitnessForSpending)
     & setTxOuts txouts
     & setTxFee (mkTxFee fee)
-    & setTxValidityRange (TxValidityNoLowerBound, mkTxValidityUpperBound ttl)
+    & setTxValidityLowerBound TxValidityNoLowerBound
+    & setTxValidityUpperBound (mkTxValidityUpperBound ttl)
 
 castKey :: SigningKey PaymentKey -> SigningKey GenesisUTxOKey
 castKey (PaymentSigningKey skey) = GenesisUTxOSigningKey skey

bench/tx-generator/src/Cardano/TxGenerator/PureExample.hs

@@ -72,7 +72,7 @@ genesisValue :: TxOutValue BabbageEra
 
 (genesisTxIn, genesisValue) =
   ( TxIn "900fc5da77a0747da53f7675cbb7d149d46779346dea2f879ab811ccc72a2162" (TxIx 0)
-  , lovelaceToTxOutValue $ Lovelace 90000000000000
+  , lovelaceToTxOutValue BabbageEra $ Lovelace 90000000000000
   )
 
 genesisFund :: Fund

bench/tx-generator/src/Cardano/TxGenerator/Setup/Plutus.hs

@@ -101,15 +101,16 @@ preExecutePlutusV1 ::
 preExecutePlutusV1 protocolVersion_ (PlutusScript _ (PlutusScriptSerialised script)) datum redeemer costModel
   = fst $ runWriter $ runExceptT go       -- for now, we discard warnings (:: PlutusCore.Evaluation.Machine.CostModelInterface.CostModelApplyWarn)
   where
-    protocolVersion = uncurry PlutusV1.ProtocolVersion protocolVersion_
+    protocolVersion = PlutusV1.MajorProtocolVersion (fst protocolVersion_)
     go
       = do
       evaluationContext <- firstExceptT PlutusError $
         PlutusV1.mkEvaluationContext (flattenCostModel costModel)
 
+      deserialisedScript <- firstExceptT PlutusError $ PlutusV1.deserialiseScript protocolVersion script
       exBudget <- firstExceptT PlutusError $
         hoistEither $
-          snd $ PlutusV1.evaluateScriptCounting protocolVersion PlutusV1.Verbose evaluationContext script
+          snd $ PlutusV1.evaluateScriptCounting protocolVersion PlutusV1.Verbose evaluationContext deserialisedScript
             [ toPlutusData datum
             , toPlutusData (getScriptData redeemer)
             , PlutusV1.toData dummyContext
@@ -146,18 +147,20 @@ preExecutePlutusV2 ::
   -> ScriptRedeemer
   -> CostModel
   -> Either TxGenError ExecutionUnits
-preExecutePlutusV2 protocolVersion_ (PlutusScript _ (PlutusScriptSerialised script)) datum redeemer costModel
+preExecutePlutusV2 (major, _minor) (PlutusScript _ (PlutusScriptSerialised script)) datum redeemer costModel
   = fst $ runWriter $ runExceptT go       -- for now, we discard warnings (:: PlutusCore.Evaluation.Machine.CostModelInterface.CostModelApplyWarn)
   where
-    protocolVersion = uncurry PlutusV2.ProtocolVersion protocolVersion_
+    protocolVersion = PlutusV2.MajorProtocolVersion major
     go
       = do
       evaluationContext <- firstExceptT PlutusError $
         PlutusV2.mkEvaluationContext (flattenCostModel costModel)
 
+      deserialisedScript <- firstExceptT PlutusError $ PlutusV2.deserialiseScript protocolVersion script
+
       exBudget <- firstExceptT PlutusError $
         hoistEither $
-          snd $ PlutusV2.evaluateScriptCounting protocolVersion PlutusV2.Verbose evaluationContext script
+          snd $ PlutusV2.evaluateScriptCounting protocolVersion PlutusV2.Verbose evaluationContext deserialisedScript
             [ toPlutusData datum
             , toPlutusData (getScriptData redeemer)
             , PlutusV2.toData dummyContext

bench/tx-generator/src/Cardano/TxGenerator/Tx.hs

@@ -1,6 +1,7 @@
 {-# LANGUAGE GADTs #-}
 {-# LANGUAGE RankNTypes #-}
 {-# LANGUAGE ScopedTypeVariables #-}
+{-# LANGUAGE TypeApplications #-}
 
 module  Cardano.TxGenerator.Tx
         (module Cardano.TxGenerator.Tx)
@@ -167,16 +168,17 @@ genTx :: forall era. ()
 genTx _era ledgerParameters (collateral, collFunds) fee metadata inFunds outputs
   = bimap
       ApiError
-      (\b -> (signShelleyTransaction b $ map WitnessPaymentKey allKeys, getTxId b))
-      (createAndValidateTransactionBody txBodyContent)
+      (\b -> (signShelleyTransaction (shelleyBasedEra @era) b $ map WitnessPaymentKey allKeys, getTxId b))
+      (createAndValidateTransactionBody (cardanoEra @era) txBodyContent)
  where
   allKeys = mapMaybe getFundKey $ inFunds ++ collFunds
-  txBodyContent = defaultTxBodyContent
+  txBodyContent = defaultTxBodyContent (cardanoEra @era)
     & setTxIns (map (\f -> (getFundTxIn f, BuildTxWith $ getFundWitness f)) inFunds)
     & setTxInsCollateral collateral
     & setTxOuts outputs
     & setTxFee fee
-    & setTxValidityRange (TxValidityNoLowerBound, defaultTxValidityUpperBound)
+    & setTxValidityLowerBound TxValidityNoLowerBound
+    & setTxValidityUpperBound (defaultTxValidityUpperBound (cardanoEra @era))
     & setTxMetadata metadata
     & setTxProtocolParams (BuildTxWith (Just ledgerParameters))
 

bench/tx-generator/src/Cardano/TxGenerator/UTxO.hs

@@ -34,13 +34,13 @@ mkUTxOVariant networkId key value
     , mkNewFund value
     )
  where
-  mkTxOut v = TxOut (keyAddress @era networkId key) (lovelaceToTxOutValue v) TxOutDatumNone ReferenceScriptNone
+  mkTxOut v = TxOut (keyAddress @era networkId key) (lovelaceToTxOutValue (cardanoEra @era) v) TxOutDatumNone ReferenceScriptNone
 
   mkNewFund :: Lovelace -> TxIx -> TxId -> Fund
   mkNewFund val txIx txId = Fund $ InAnyCardanoEra (cardanoEra @era) $ FundInEra {
       _fundTxIn = TxIn txId txIx
     , _fundWitness = KeyWitness KeyWitnessForSpending
-    , _fundVal = lovelaceToTxOutValue val
+    , _fundVal = lovelaceToTxOutValue (cardanoEra @era ) val
     , _fundSigningKey = Just key
     }
 
@@ -61,6 +61,7 @@ mkUTxOScript networkId (script, txOutDatum) witness value
       case scriptLanguageSupportedInEra (cardanoEra @era) lang of
         Nothing -> error "mkUtxOScript: scriptLanguageSupportedInEra==Nothing"
         Just{} -> makeShelleyAddressInEra
+                       (shelleyBasedEra @era)
                        networkId
                        (PaymentCredentialByScript $ hashScript script')
                        NoStakeAddress
@@ -69,14 +70,14 @@ mkUTxOScript networkId (script, txOutDatum) witness value
     Nothing -> error "mkUtxOScript: scriptDataSupportedInEra==Nothing"
     Just tag -> TxOut
                   plutusScriptAddr
-                  (lovelaceToTxOutValue v)
+                  (lovelaceToTxOutValue (cardanoEra @era) v)
                   (TxOutDatumHash tag $ hashScriptDataBytes $ unsafeHashableScriptData txOutDatum)
                   ReferenceScriptNone
 
   mkNewFund :: Lovelace -> TxIx -> TxId -> Fund
   mkNewFund val txIx txId = Fund $ InAnyCardanoEra (cardanoEra @era) $ FundInEra {
       _fundTxIn = TxIn txId txIx
     , _fundWitness = witness
-    , _fundVal = lovelaceToTxOutValue val
+    , _fundVal = lovelaceToTxOutValue (cardanoEra @era) val
     , _fundSigningKey = Nothing
     }