WIP: dummy ProtocolParameters

IntersectMBO · Feb 25, 2025 · 0102ac6 · 0102ac6
1 parent 5795f29
commit 0102ac6
Show file tree

Hide file tree

Showing 9 changed files with 35 additions and 11 deletions.
diff --git a/bench/tx-generator/src/Cardano/Api/Internal/ProtocolParameters.hs b/bench/tx-generator/src/Cardano/Api/Internal/ProtocolParameters.hs
@@ -0,0 +1,21 @@
+-- | The various Cardano protocol parameters, including:
+--
+-- * the current values of updatable protocol parameters: 'ProtocolParameters'
+module Cardano.Api.Internal.ProtocolParameters
+  ( -- * The updatable protocol parameters
+    ProtocolParameters (..)
+  , convertToLedgerProtocolParameters
+  , toLedgerPParams
+  , fromLedgerPParams
+  )
+where
+
+--------------------------------------------------------------------------------
+
+data ProtocolParameters = ProtocolParameters
+convertToLedgerProtocolParameters :: ()
+convertToLedgerProtocolParameters = error ""
+toLedgerPParams :: ()
+toLedgerPParams = error ""
+fromLedgerPParams :: ()
+fromLedgerPParams = error ""
diff --git a/bench/tx-generator/src/Cardano/Benchmarking/Script/Aeson.hs b/bench/tx-generator/src/Cardano/Benchmarking/Script/Aeson.hs
@@ -22,7 +22,7 @@ import qualified Data.Attoparsec.ByteString as Atto
 import qualified Data.Yaml as Yaml (encode)
 
 import           Cardano.Api
-import           Cardano.Api.Shelley (ProtocolParameters)
+import           Cardano.Api.Internal.ProtocolParameters (ProtocolParameters)
 
 import           Cardano.Benchmarking.Script.Types
 import           Cardano.TxGenerator.Internal.Orphans ()

diff --git a/bench/tx-generator/src/Cardano/Benchmarking/Script/Core.hs b/bench/tx-generator/src/Cardano/Benchmarking/Script/Core.hs
@@ -18,10 +18,11 @@
 module Cardano.Benchmarking.Script.Core
 where
 
-import           Cardano.Api
-import           Cardano.Api.Shelley (PlutusScriptOrReferenceInput (..), ProtocolParameters,
-                   ShelleyLedgerEra, convertToLedgerProtocolParameters, protocolParamMaxTxExUnits,
+import           Cardano.Api hiding (toLedgerPParams, fromLedgerPParams)
+import           Cardano.Api.Shelley (PlutusScriptOrReferenceInput (..),
+                   ShelleyLedgerEra, protocolParamMaxTxExUnits,
                    protocolParamPrices)
+import           Cardano.Api.Internal.ProtocolParameters (toLedgerPParams, fromLedgerPParams, ProtocolParameters, convertToLedgerProtocolParameters)
 
 import           Cardano.Benchmarking.GeneratorTx as GeneratorTx (AsyncBenchmarkControl)
 import qualified Cardano.Benchmarking.GeneratorTx as GeneratorTx (waitBenchmark, walletBenchmark)

diff --git a/bench/tx-generator/src/Cardano/Benchmarking/Script/Types.hs b/bench/tx-generator/src/Cardano/Benchmarking/Script/Types.hs
@@ -40,7 +40,8 @@ module Cardano.Benchmarking.Script.Types (
 
 import           Cardano.Api
 import qualified Cardano.Api.Ledger as L
-import           Cardano.Api.Shelley
+import           Cardano.Api.Shelley hiding (ProtocolParameters)
+import           Cardano.Api.Internal.ProtocolParameters (ProtocolParameters)
 
 import           Cardano.Benchmarking.OuroborosImports (SigningKeyFile)
 import           Cardano.Node.Configuration.NodeAddress (NodeIPv4Address)

diff --git a/bench/tx-generator/src/Cardano/TxGenerator/PlutusContext.hs b/bench/tx-generator/src/Cardano/TxGenerator/PlutusContext.hs
@@ -26,7 +26,7 @@ module  Cardano.TxGenerator.PlutusContext
         where
 
 import           Cardano.Api
-import           Cardano.Api.Shelley (ProtocolParameters (..))
+import           Cardano.Api.Internal.ProtocolParameters (ProtocolParameters (..))
 
 import           Cardano.Ledger.Coin (Coin)
 import           Cardano.TxGenerator.Setup.Plutus (preExecutePlutusScript)

diff --git a/bench/tx-generator/src/Cardano/TxGenerator/PureExample.hs b/bench/tx-generator/src/Cardano/TxGenerator/PureExample.hs
@@ -7,7 +7,7 @@ module  Cardano.TxGenerator.PureExample
         where
 
 import           Cardano.Api
-import           Cardano.Api.Shelley (convertToLedgerProtocolParameters)
+import           Cardano.Api.Internal.ProtocolParameters (convertToLedgerProtocolParameters)
 
 import qualified Cardano.Ledger.Coin as L
 import           Cardano.TxGenerator.FundQueue

diff --git a/bench/tx-generator/src/Cardano/TxGenerator/Setup/Plutus.hs b/bench/tx-generator/src/Cardano/TxGenerator/Setup/Plutus.hs
@@ -26,8 +26,9 @@ import           Control.Monad.Writer (runWriter)
 import           Cardano.CLI.Read (readFileScriptInAnyLang)
 
 import           Cardano.Api
-import           Cardano.Api.Shelley (PlutusScript (..), ProtocolParameters (..), fromAlonzoExUnits,
+import           Cardano.Api.Shelley (PlutusScript (..), fromAlonzoExUnits,
                    protocolParamCostModels, toPlutusData)
+import           Cardano.Api.Internal.ProtocolParameters (ProtocolParameters (..))
 import           Cardano.Ledger.Plutus.TxInfo (exBudgetToExUnits)
 
 import qualified PlutusLedgerApi.V1 as PlutusV1

diff --git a/bench/tx-generator/src/Cardano/TxGenerator/Types.hs b/bench/tx-generator/src/Cardano/TxGenerator/Types.hs
@@ -14,8 +14,7 @@ module  Cardano.TxGenerator.Types
         where
 
 import           Cardano.Api
-import           Cardano.Api.Shelley (ProtocolParameters)
-
+import           Cardano.Api.Internal.ProtocolParameters (ProtocolParameters)
 import qualified Cardano.Ledger.Coin as L
 import           Cardano.Ledger.Crypto (StandardCrypto)
 import qualified Cardano.Ledger.Shelley.API as Ledger (ShelleyGenesis)

diff --git a/bench/tx-generator/tx-generator.cabal b/bench/tx-generator/tx-generator.cabal
@@ -92,7 +92,8 @@ library
 
                         Cardano.TxGenerator.Internal.Orphans
 
-  other-modules:        Cardano.TxGenerator.Internal.Fifo
+  other-modules:        Cardano.Api.Internal.ProtocolParameters
+                        Cardano.TxGenerator.Internal.Fifo
                         -- Cardano.TxGenerator.Internal.Orphans
                         Paths_tx_generator