Delete CardanoEraStyle and cardanoEraStyle

IntersectMBO · Oct 28, 2023 · 3edfb23 · 3edfb23
1 parent db42dc1
commit 3edfb23
Show file tree

Hide file tree

Showing 2 changed files with 0 additions and 40 deletions.
diff --git a/cardano-api/internal/Cardano/Api/Eon/ShelleyBasedEra.hs b/cardano-api/internal/Cardano/Api/Eon/ShelleyBasedEra.hs
@@ -25,10 +25,6 @@ module Cardano.Api.Eon.ShelleyBasedEra
   , forShelleyBasedEraInEonMaybe
   , forShelleyBasedEraMaybeEon
 
-    -- * Cardano eras, as Byron vs Shelley-based
-  , CardanoEraStyle(..)
-  , cardanoEraStyle
-
     -- * Assertions on era
   , requireShelleyBasedEra
 
@@ -316,40 +312,6 @@ shelleyBasedToCardanoEra ShelleyBasedEraAlonzo  = AlonzoEra
 shelleyBasedToCardanoEra ShelleyBasedEraBabbage = BabbageEra
 shelleyBasedToCardanoEra ShelleyBasedEraConway  = ConwayEra
 
--- ----------------------------------------------------------------------------
--- Cardano eras factored as Byron vs Shelley-based
---
-
--- | This is the same essential information as 'CardanoEra' but instead of a
--- flat set of alternative eras, it is factored into the legcy Byron era and
--- the current Shelley-based eras.
---
--- This way of factoring the eras is useful because in many cases the
--- major differences are between the Byron and Shelley-based eras, and
--- the Shelley-based eras can often be treated uniformly.
---
-data CardanoEraStyle era where
-  LegacyByronEra  :: CardanoEraStyle ByronEra
-
-  ShelleyBasedEra
-    :: ShelleyBasedEra era
-    -> CardanoEraStyle era
-
-deriving instance Eq   (CardanoEraStyle era)
-deriving instance Ord  (CardanoEraStyle era)
-deriving instance Show (CardanoEraStyle era)
-
--- | The 'CardanoEraStyle' for a 'CardanoEra'.
---
-cardanoEraStyle :: CardanoEra era -> CardanoEraStyle era
-cardanoEraStyle ByronEra   = LegacyByronEra
-cardanoEraStyle ShelleyEra = ShelleyBasedEra ShelleyBasedEraShelley
-cardanoEraStyle AllegraEra = ShelleyBasedEra ShelleyBasedEraAllegra
-cardanoEraStyle MaryEra    = ShelleyBasedEra ShelleyBasedEraMary
-cardanoEraStyle AlonzoEra  = ShelleyBasedEra ShelleyBasedEraAlonzo
-cardanoEraStyle BabbageEra = ShelleyBasedEra ShelleyBasedEraBabbage
-cardanoEraStyle ConwayEra  = ShelleyBasedEra ShelleyBasedEraConway
-
 -- ----------------------------------------------------------------------------
 -- Conversion to Shelley ledger library types
 --

diff --git a/cardano-api/src/Cardano/Api.hs b/cardano-api/src/Cardano/Api.hs
@@ -105,8 +105,6 @@ module Cardano.Api (
     anyShelleyBasedEra,
     InAnyShelleyBasedEra(..),
     inAnyShelleyBasedEra,
-    CardanoEraStyle(..),
-    cardanoEraStyle,
     shelleyBasedToCardanoEra,
     shelleyBasedEraConstraints,