Merge pull request #1234 from IntersectMBO/jordan/remove-deprecated-convert-fns

Remove deprecated era conversion functions superseded by convert

Author: Jimbo4350

.changes/20260615_remove_deprecated_convert_fns.yml

@@ -0,0 +1,6 @@
+project: cardano-api
+pr: 1234
+kind:
+  - breaking
+description: |
+  Remove deprecated era conversion functions that were superseded by 'convert': shelleyToAlonzoEraToShelleyToBabbageEra, alonzoEraOnwardsToMaryEraOnwards, babbageEraOnwardsToMaryEraOnwards, babbageEraOnwardsToAlonzoEraOnwards, eraToSbe, eraToBabbageEraOnwards, shelleyToMaryEraToShelleyBasedEra, conwayEraOnwardsToShelleyBasedEra, conwayEraOnwardsToBabbageEraOnwards, maryEraOnwardsToShelleyBasedEra, babbageEraOnwardsToShelleyBasedEra, shelleyEraOnlyToShelleyBasedEra, alonzoEraOnwardsToShelleyBasedEra, shelleyToBabbageEraToShelleyBasedEra, allegraEraOnwardsToShelleyBasedEra, shelleyToAllegraEraToShelleyBasedEra. Use 'convert' instead.

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

@@ -981,7 +981,7 @@ genTxMintValue =
       policies <- Gen.list (Range.constant 1 3) genPolicyId
       assets <- forM policies $ \policy -> do
         mintValue <- genPolicyAssets
-        witness <- genScriptWitnessForMint (maryEraOnwardsToShelleyBasedEra w)
+        witness <- genScriptWitnessForMint (convert w)
         pure (policy, (mintValue, pure witness))
 
       Gen.choice

cardano-api/src/Cardano/Api/Era/Internal/Case.hs

@@ -13,11 +13,6 @@ module Cardano.Api.Era.Internal.Case
   , caseShelleyToMaryOrAlonzoEraOnwards
   , caseShelleyToAlonzoOrBabbageEraOnwards
   , caseShelleyToBabbageOrConwayEraOnwards
-  -- Conversions
-  , shelleyToAlonzoEraToShelleyToBabbageEra
-  , alonzoEraOnwardsToMaryEraOnwards
-  , babbageEraOnwardsToMaryEraOnwards
-  , babbageEraOnwardsToAlonzoEraOnwards
   )
 where
 
@@ -156,45 +151,3 @@ caseShelleyToBabbageOrConwayEraOnwards l r = \case
   ShelleyBasedEraBabbage -> l ShelleyToBabbageEraBabbage
   ShelleyBasedEraConway -> r ConwayEraOnwardsConway
   ShelleyBasedEraDijkstra -> error "TODO Dijkstra: caseShelleyToBabbageOrConwayEraOnwards: era not supported"
-
-{-# DEPRECATED shelleyToAlonzoEraToShelleyToBabbageEra "Use convert instead" #-}
-shelleyToAlonzoEraToShelleyToBabbageEra
-  :: ()
-  => ShelleyToAlonzoEra era
-  -> ShelleyToBabbageEra era
-shelleyToAlonzoEraToShelleyToBabbageEra = \case
-  ShelleyToAlonzoEraShelley -> ShelleyToBabbageEraShelley
-  ShelleyToAlonzoEraAllegra -> ShelleyToBabbageEraAllegra
-  ShelleyToAlonzoEraMary -> ShelleyToBabbageEraMary
-  ShelleyToAlonzoEraAlonzo -> ShelleyToBabbageEraAlonzo
-
-{-# DEPRECATED alonzoEraOnwardsToMaryEraOnwards "Use convert instead" #-}
-alonzoEraOnwardsToMaryEraOnwards
-  :: ()
-  => AlonzoEraOnwards era
-  -> MaryEraOnwards era
-alonzoEraOnwardsToMaryEraOnwards = \case
-  AlonzoEraOnwardsAlonzo -> MaryEraOnwardsAlonzo
-  AlonzoEraOnwardsBabbage -> MaryEraOnwardsBabbage
-  AlonzoEraOnwardsConway -> MaryEraOnwardsConway
-  AlonzoEraOnwardsDijkstra -> MaryEraOnwardsDijkstra
-
-{-# DEPRECATED babbageEraOnwardsToMaryEraOnwards "Use convert instead" #-}
-babbageEraOnwardsToMaryEraOnwards
-  :: ()
-  => BabbageEraOnwards era
-  -> MaryEraOnwards era
-babbageEraOnwardsToMaryEraOnwards = \case
-  BabbageEraOnwardsBabbage -> MaryEraOnwardsBabbage
-  BabbageEraOnwardsConway -> MaryEraOnwardsConway
-  BabbageEraOnwardsDijkstra -> MaryEraOnwardsDijkstra
-
-{-# DEPRECATED babbageEraOnwardsToAlonzoEraOnwards "Use convert instead" #-}
-babbageEraOnwardsToAlonzoEraOnwards
-  :: ()
-  => BabbageEraOnwards era
-  -> AlonzoEraOnwards era
-babbageEraOnwardsToAlonzoEraOnwards = \case
-  BabbageEraOnwardsBabbage -> AlonzoEraOnwardsBabbage
-  BabbageEraOnwardsConway -> AlonzoEraOnwardsConway
-  BabbageEraOnwardsDijkstra -> AlonzoEraOnwardsDijkstra

cardano-api/src/Cardano/Api/Era/Internal/Eon/AllegraEraOnwards.hs

@@ -12,7 +12,6 @@
 module Cardano.Api.Era.Internal.Eon.AllegraEraOnwards
   ( AllegraEraOnwards (..)
   , allegraEraOnwardsConstraints
-  , allegraEraOnwardsToShelleyBasedEra
   , AllegraEraOnwardsConstraints
   , IsAllegraBasedEra (..)
   )
@@ -122,10 +121,6 @@ allegraEraOnwardsConstraints = \case
   AllegraEraOnwardsConway -> id
   _ -> const $ error "TODO Dijkstra: allegraEraOnwardsConstraints: era not supported"
 
-{-# DEPRECATED allegraEraOnwardsToShelleyBasedEra "Use 'convert' instead." #-}
-allegraEraOnwardsToShelleyBasedEra :: AllegraEraOnwards era -> ShelleyBasedEra era
-allegraEraOnwardsToShelleyBasedEra = convert
-
 class IsShelleyBasedEra era => IsAllegraBasedEra era where
   allegraBasedEra :: AllegraEraOnwards era
 

cardano-api/src/Cardano/Api/Era/Internal/Eon/AlonzoEraOnwards.hs

@@ -12,7 +12,6 @@
 module Cardano.Api.Era.Internal.Eon.AlonzoEraOnwards
   ( AlonzoEraOnwards (..)
   , alonzoEraOnwardsConstraints
-  , alonzoEraOnwardsToShelleyBasedEra
   , AlonzoEraOnwardsConstraints
   , IsAlonzoBasedEra (..)
   )
@@ -130,10 +129,6 @@ alonzoEraOnwardsConstraints = \case
   AlonzoEraOnwardsConway -> id
   AlonzoEraOnwardsDijkstra -> id
 
-{-# DEPRECATED alonzoEraOnwardsToShelleyBasedEra "Use 'convert' instead." #-}
-alonzoEraOnwardsToShelleyBasedEra :: AlonzoEraOnwards era -> ShelleyBasedEra era
-alonzoEraOnwardsToShelleyBasedEra = convert
-
 class IsMaryBasedEra era => IsAlonzoBasedEra era where
   alonzoBasedEra :: AlonzoEraOnwards era
 

cardano-api/src/Cardano/Api/Era/Internal/Eon/BabbageEraOnwards.hs

@@ -13,7 +13,6 @@
 module Cardano.Api.Era.Internal.Eon.BabbageEraOnwards
   ( BabbageEraOnwards (..)
   , babbageEraOnwardsConstraints
-  , babbageEraOnwardsToShelleyBasedEra
   , BabbageEraOnwardsConstraints
   , IsBabbageBasedEra (..)
   )
@@ -139,10 +138,6 @@ babbageEraOnwardsConstraints = \case
   BabbageEraOnwardsConway -> id
   BabbageEraOnwardsDijkstra -> const $ error "TODO Dijkstra: babbageEraOnwardsConstraints: era not supported"
 
-{-# DEPRECATED babbageEraOnwardsToShelleyBasedEra "Use 'convert' instead." #-}
-babbageEraOnwardsToShelleyBasedEra :: BabbageEraOnwards era -> ShelleyBasedEra era
-babbageEraOnwardsToShelleyBasedEra = convert
-
 class IsAlonzoBasedEra era => IsBabbageBasedEra era where
   babbageBasedEra :: BabbageEraOnwards era
 

cardano-api/src/Cardano/Api/Era/Internal/Eon/ConwayEraOnwards.hs

@@ -12,8 +12,6 @@
 module Cardano.Api.Era.Internal.Eon.ConwayEraOnwards
   ( ConwayEraOnwards (..)
   , conwayEraOnwardsConstraints
-  , conwayEraOnwardsToShelleyBasedEra
-  , conwayEraOnwardsToBabbageEraOnwards
   , ConwayEraOnwardsConstraints
   , IsConwayBasedEra (..)
   )
@@ -147,14 +145,6 @@ conwayEraOnwardsConstraints = \case
   ConwayEraOnwardsConway -> id
   _ -> const $ error "TODO Dijkstra: conwayEraOnwardsConstraints: era not supported"
 
-{-# DEPRECATED conwayEraOnwardsToShelleyBasedEra "Use 'convert' instead." #-}
-conwayEraOnwardsToShelleyBasedEra :: ConwayEraOnwards era -> ShelleyBasedEra era
-conwayEraOnwardsToShelleyBasedEra = convert
-
-{-# DEPRECATED conwayEraOnwardsToBabbageEraOnwards "Use 'convert' instead." #-}
-conwayEraOnwardsToBabbageEraOnwards :: ConwayEraOnwards era -> BabbageEraOnwards era
-conwayEraOnwardsToBabbageEraOnwards = convert
-
 class IsBabbageBasedEra era => IsConwayBasedEra era where
   conwayBasedEra :: ConwayEraOnwards era
 

cardano-api/src/Cardano/Api/Era/Internal/Eon/MaryEraOnwards.hs

@@ -12,7 +12,6 @@
 module Cardano.Api.Era.Internal.Eon.MaryEraOnwards
   ( MaryEraOnwards (..)
   , maryEraOnwardsConstraints
-  , maryEraOnwardsToShelleyBasedEra
   , MaryEraOnwardsConstraints
   , IsMaryBasedEra (..)
   )
@@ -123,10 +122,6 @@ maryEraOnwardsConstraints = \case
   MaryEraOnwardsConway -> id
   MaryEraOnwardsDijkstra -> const $ error "TODO Dijkstra: maryEraOnwardsConstraints: era not supported"
 
-{-# DEPRECATED maryEraOnwardsToShelleyBasedEra "Use 'convert' instead." #-}
-maryEraOnwardsToShelleyBasedEra :: MaryEraOnwards era -> ShelleyBasedEra era
-maryEraOnwardsToShelleyBasedEra = convert
-
 class IsAllegraBasedEra era => IsMaryBasedEra era where
   maryBasedEra :: MaryEraOnwards era
 

cardano-api/src/Cardano/Api/Era/Internal/Eon/ShelleyEraOnly.hs

@@ -12,7 +12,6 @@
 module Cardano.Api.Era.Internal.Eon.ShelleyEraOnly
   ( ShelleyEraOnly (..)
   , shelleyEraOnlyConstraints
-  , shelleyEraOnlyToShelleyBasedEra
   , ShelleyEraOnlyConstraints
   )
 where
@@ -109,7 +108,3 @@ shelleyEraOnlyConstraints
   -> a
 shelleyEraOnlyConstraints = \case
   ShelleyEraOnlyShelley -> id
-
-{-# DEPRECATED shelleyEraOnlyToShelleyBasedEra "Use 'convert' instead." #-}
-shelleyEraOnlyToShelleyBasedEra :: ShelleyEraOnly era -> ShelleyBasedEra era
-shelleyEraOnlyToShelleyBasedEra = convert

cardano-api/src/Cardano/Api/Era/Internal/Eon/ShelleyToAllegraEra.hs

@@ -12,7 +12,6 @@
 module Cardano.Api.Era.Internal.Eon.ShelleyToAllegraEra
   ( ShelleyToAllegraEra (..)
   , shelleyToAllegraEraConstraints
-  , shelleyToAllegraEraToShelleyBasedEra
   , ShelleyToAllegraEraConstraints
   )
 where
@@ -113,7 +112,3 @@ shelleyToAllegraEraConstraints
 shelleyToAllegraEraConstraints = \case
   ShelleyToAllegraEraShelley -> id
   ShelleyToAllegraEraAllegra -> id
-
-{-# DEPRECATED shelleyToAllegraEraToShelleyBasedEra "Use 'convert' instead." #-}
-shelleyToAllegraEraToShelleyBasedEra :: ShelleyToAllegraEra era -> ShelleyBasedEra era
-shelleyToAllegraEraToShelleyBasedEra = convert