New ProtocolUpdateUTxOCostPerWordSupportedInEra type

IntersectMBO · Jun 5, 2023 · 86e9b59 · 86e9b59
1 parent 3bc87dc
commit 86e9b59
Show file tree

Hide file tree

Showing 3 changed files with 24 additions and 0 deletions.
diff --git a/cardano-api/internal/Cardano/Api/ProtocolParameters.hs b/cardano-api/internal/Cardano/Api/ProtocolParameters.hs
@@ -74,6 +74,7 @@ module Cardano.Api.ProtocolParameters (
 
     -- ** Era-dependent protocol features
     ProtocolUTxOCostPerByteFeature(..),
+    ProtocolUTxOCostPerWordFeature(..),
 
   ) where
 
@@ -699,6 +700,27 @@ instance FeatureInEra ProtocolUTxOCostPerByteFeature where
     BabbageEra  -> yes ProtocolUTxOCostPerByteInBabbageEra
     ConwayEra   -> yes ProtocolUTxOCostPerByteInConwayEra
 
+-- | A representation of whether the era supports the 'UTxO Cost Per Word'
+-- protocol parameter.
+--
+-- The Babbage and subsequent eras support such a protocol parameter.
+--
+data ProtocolUTxOCostPerWordFeature era where
+  ProtocolUpdateUTxOCostPerWordInAlonzoEra :: ProtocolUTxOCostPerWordFeature AlonzoEra
+
+deriving instance Eq   (ProtocolUTxOCostPerWordFeature era)
+deriving instance Show (ProtocolUTxOCostPerWordFeature era)
+
+instance FeatureInEra ProtocolUTxOCostPerWordFeature where
+  featureInEra no yes = \case
+    ByronEra    -> no
+    ShelleyEra  -> no
+    AllegraEra  -> no
+    MaryEra     -> no
+    AlonzoEra   -> yes ProtocolUpdateUTxOCostPerWordInAlonzoEra
+    BabbageEra  -> no
+    ConwayEra   -> no
+
 -- ----------------------------------------------------------------------------
 -- Praos nonce
 --

diff --git a/cardano-api/internal/Cardano/Api/TxBody.hs b/cardano-api/internal/Cardano/Api/TxBody.hs
@@ -177,6 +177,7 @@ module Cardano.Api.TxBody (
 
     -- * Data family instances
     AsType(AsTxId, AsTxBody, AsByronTxBody, AsShelleyTxBody, AsMaryTxBody),
+
   ) where
 
 import           Cardano.Api.Address

diff --git a/cardano-api/src/Cardano/Api.hs b/cardano-api/src/Cardano/Api.hs
@@ -296,6 +296,7 @@ module Cardano.Api (
 
     -- ** Era-dependent protocol features
     ProtocolUTxOCostPerByteFeature(..),
+    ProtocolUTxOCostPerWordFeature(..),
 
     -- ** Fee calculation
     LedgerEpochInfo(..),