Rename ShelleyToAlonzoPParams' to ShelleyToAlonzoPParams

IntersectMBO · Oct 24, 2023 · e14153c · e14153c
1 parent 291aeba
commit e14153c
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 10 deletions.
diff --git a/cardano-api/internal/Cardano/Api/ProtocolParameters.hs b/cardano-api/internal/Cardano/Api/ProtocolParameters.hs
@@ -41,7 +41,7 @@ module Cardano.Api.ProtocolParameters (
     AlonzoOnwardsPParams(..),
     CommonProtocolParametersUpdate(..),
     DeprecatedAfterMaryPParams(..),
-    ShelleyToAlonzoPParams'(..),
+    ShelleyToAlonzoPParams(..),
     IntroducedInBabbagePParams(..),
     IntroducedInConwayPParams(..),
     createEraBasedProtocolParamUpdate,
@@ -195,24 +195,24 @@ data EraBasedProtocolParametersUpdate era where
   ShelleyEraBasedProtocolParametersUpdate
     :: CommonProtocolParametersUpdate
     -> DeprecatedAfterMaryPParams ShelleyEra
-    -> ShelleyToAlonzoPParams' ShelleyEra
+    -> ShelleyToAlonzoPParams ShelleyEra
     -> EraBasedProtocolParametersUpdate ShelleyEra
 
   AllegraEraBasedProtocolParametersUpdate
     :: CommonProtocolParametersUpdate
     -> DeprecatedAfterMaryPParams AllegraEra
-    -> ShelleyToAlonzoPParams' AllegraEra
+    -> ShelleyToAlonzoPParams AllegraEra
     -> EraBasedProtocolParametersUpdate AllegraEra
 
   MaryEraBasedProtocolParametersUpdate
     :: CommonProtocolParametersUpdate
     -> DeprecatedAfterMaryPParams MaryEra
-    -> ShelleyToAlonzoPParams' MaryEra
+    -> ShelleyToAlonzoPParams MaryEra
     -> EraBasedProtocolParametersUpdate MaryEra
 
   AlonzoEraBasedProtocolParametersUpdate
     :: CommonProtocolParametersUpdate
-    -> ShelleyToAlonzoPParams' AlonzoEra
+    -> ShelleyToAlonzoPParams AlonzoEra
     -> AlonzoOnwardsPParams AlonzoEra
     -> EraBasedProtocolParametersUpdate AlonzoEra
 
@@ -358,8 +358,8 @@ createDeprecatedAfterMaryPParams
 createDeprecatedAfterMaryPParams _ (DeprecatedAfterMaryPParams minUtxoVal) =
   Ledger.emptyPParamsUpdate & Ledger.ppuMinUTxOValueL .~ minUtxoVal
 
-data ShelleyToAlonzoPParams' ledgerera
-  = ShelleyToAlonzoPParams'
+data ShelleyToAlonzoPParams ledgerera
+  = ShelleyToAlonzoPParams
       (StrictMaybe Ledger.Nonce) -- ^ Extra entropy
       (StrictMaybe Ledger.UnitInterval) -- ^ Decentralization parameter
   deriving Show
@@ -371,9 +371,9 @@ createDeprecatedAfterAlonzoPParams
   :: EraPParams (ShelleyLedgerEra era)
   => MaxAlonzoEra (ShelleyLedgerEra era)
   => ShelleyBasedEra era
-  -> ShelleyToAlonzoPParams' era
+  -> ShelleyToAlonzoPParams era
   -> Ledger.PParamsUpdate (ShelleyLedgerEra era)
-createDeprecatedAfterAlonzoPParams _ (ShelleyToAlonzoPParams' extraEntropy decentralization) =
+createDeprecatedAfterAlonzoPParams _ (ShelleyToAlonzoPParams extraEntropy decentralization) =
   Ledger.emptyPParamsUpdate
     & Ledger.ppuExtraEntropyL .~ extraEntropy
     & Ledger.ppuDL .~ decentralization

diff --git a/cardano-api/src/Cardano/Api/Shelley.hs b/cardano-api/src/Cardano/Api/Shelley.hs
@@ -115,7 +115,7 @@ module Cardano.Api.Shelley
     CommonProtocolParametersUpdate(..),
     AlonzoOnwardsPParams(..),
     DeprecatedAfterMaryPParams(..),
-    ShelleyToAlonzoPParams'(..),
+    ShelleyToAlonzoPParams(..),
     IntroducedInBabbagePParams(..),
     IntroducedInConwayPParams(..),
     createEraBasedProtocolParamUpdate,