Merge pull request #729 from IntersectMBO/smelc/remove-protocol-parameters

Remove ProtocolParameters

Author: smelc

cardano-api/cardano-api.cabal

@@ -368,7 +368,6 @@ test-suite cardano-api-test
     Test.Cardano.Api.Metadata
     Test.Cardano.Api.Ord
     Test.Cardano.Api.Orphans
-    Test.Cardano.Api.ProtocolParameters
     Test.Cardano.Api.RawBytes
     Test.Cardano.Api.Transaction.Autobalance
     Test.Cardano.Api.TxBody
@@ -396,7 +395,6 @@ test-suite cardano-api-golden
     cardano-data >=1.0,
     cardano-ledger-alonzo,
     cardano-ledger-api >=1.9,
-    cardano-ledger-babbage >=1.9,
     cardano-ledger-binary,
     cardano-ledger-core:{cardano-ledger-core, testlib} >=1.14,
     cardano-ledger-shelley,
@@ -425,7 +423,6 @@ test-suite cardano-api-golden
   other-modules:
     Test.Golden.Cardano.Api.Genesis
     Test.Golden.Cardano.Api.Ledger
-    Test.Golden.Cardano.Api.ProtocolParameters
     Test.Golden.Cardano.Api.Script
     Test.Golden.Cardano.Api.Value
     Test.Golden.ErrorsSpec

cardano-api/gen/Test/Gen/Cardano/Api/Typed.hs

@@ -30,7 +30,6 @@ module Test.Gen.Cardano.Api.Typed
   , genMaybePraosNonce
   , genPraosNonce
   , genValidProtocolParameters
-  , genProtocolParameters
   , genValueNestedRep
   , genValueNestedBundle
   , genByronKeyWitness
@@ -1194,40 +1193,7 @@ genPraosNonce = makePraosNonce <$> Gen.bytes (Range.linear 0 32)
 genMaybePraosNonce :: Gen (Maybe PraosNonce)
 genMaybePraosNonce = Gen.maybe genPraosNonce
 
-genProtocolParameters :: CardanoEra era -> Gen ProtocolParameters
-genProtocolParameters era = do
-  protocolParamProtocolVersion <- (,) <$> genNat <*> genNat
-  protocolParamDecentralization <- Gen.maybe genRational
-  protocolParamExtraPraosEntropy <- genMaybePraosNonce
-  protocolParamMaxBlockHeaderSize <- genNat
-  protocolParamMaxBlockBodySize <- genNat
-  protocolParamMaxTxSize <- genNat
-  protocolParamTxFeeFixed <- genLovelace
-  protocolParamTxFeePerByte <- genLovelace
-  protocolParamMinUTxOValue <- Gen.maybe genLovelace
-  protocolParamStakeAddressDeposit <- genLovelace
-  protocolParamStakePoolDeposit <- genLovelace
-  protocolParamMinPoolCost <- genLovelace
-  protocolParamPoolRetireMaxEpoch <- genEpochInterval
-  protocolParamStakePoolTargetNum <- genWord16
-  protocolParamPoolPledgeInfluence <- genRationalInt64
-  protocolParamMonetaryExpansion <- genRational
-  protocolParamTreasuryCut <- genRational
-  let protocolParamCostModels = mempty
-  -- TODO: Babbage figure out how to deal with
-  -- asymmetric cost model JSON instances
-  protocolParamPrices <- Gen.maybe genExecutionUnitPrices
-  protocolParamMaxTxExUnits <- Gen.maybe genExecutionUnits
-  protocolParamMaxBlockExUnits <- Gen.maybe genExecutionUnits
-  protocolParamMaxValueSize <- Gen.maybe genNat
-  protocolParamCollateralPercent <- Gen.maybe genNat
-  protocolParamMaxCollateralInputs <- Gen.maybe genNat
-  protocolParamUTxOCostPerByte <-
-    inEonForEra @BabbageEraOnwards (pure Nothing) (const (Just <$> genLovelace)) era
-
-  pure ProtocolParameters{..}
-
--- | Generate valid protocol parameters which pass validations in Cardano.Api.Internal.ProtocolParameters
+-- | Generate valid protocol parameters which pass validations in Cardano.Api.ProtocolParameters
 genValidProtocolParameters :: ShelleyBasedEra era -> Gen (LedgerProtocolParameters era)
 genValidProtocolParameters sbe = shelleyBasedEraTestConstraints sbe $ LedgerProtocolParameters <$> Q.arbitrary
 

cardano-api/src/Cardano/Api.hs

@@ -976,8 +976,6 @@ module Cardano.Api
   , ProtocolParametersConversionError (..)
 
     -- ** Conversions
-  , toLedgerPParams
-  , fromLedgerPParams
   , toCtxUTxOTxOut
   -- TODO: arrange not to export these
   , fromNetworkMagic