Merge pull request #266 from input-output-hk/newhoggy/new-function-al…

…onzoEraOnwardsToMaryEraOnwards New function `alonzoEraOnwardsToMaryEraOnwards` and `shelleyToAllegraEraToByronToAllegraEra`
IntersectMBO · Sep 26, 2023 · 7051add · 7051add
2 parents 8020734 + 87dc6f0
commit 7051add
Show file tree

Hide file tree

Showing 2 changed files with 14 additions and 0 deletions.
diff --git a/cardano-api/internal/Cardano/Api/Eras/Case.hs b/cardano-api/internal/Cardano/Api/Eras/Case.hs
@@ -21,6 +21,7 @@ module Cardano.Api.Eras.Case
 
     -- Conversions
   , shelleyToAllegraEraToByronToAllegraEra
+  , alonzoEraOnwardsToMaryEraOnwards
   ) where
 
 import           Cardano.Api.Eon.AlonzoEraOnwards
@@ -154,3 +155,11 @@ shelleyToAllegraEraToByronToAllegraEra :: ShelleyToAllegraEra era -> ByronToAlle
 shelleyToAllegraEraToByronToAllegraEra = \case
   ShelleyToAllegraEraShelley -> ByronToAllegraEraShelley
   ShelleyToAllegraEraAllegra -> ByronToAllegraEraAllegra
+
+alonzoEraOnwardsToMaryEraOnwards :: ()
+  => AlonzoEraOnwards era
+  -> MaryEraOnwards era
+alonzoEraOnwardsToMaryEraOnwards = \case
+  AlonzoEraOnwardsAlonzo  -> MaryEraOnwardsAlonzo
+  AlonzoEraOnwardsBabbage -> MaryEraOnwardsBabbage
+  AlonzoEraOnwardsConway  -> MaryEraOnwardsConway
diff --git a/cardano-api/src/Cardano/Api.hs b/cardano-api/src/Cardano/Api.hs
@@ -158,6 +158,10 @@ module Cardano.Api (
     caseShelleyToAlonzoOrBabbageEraOnwards,
     caseShelleyToBabbageOrConwayEraOnwards,
 
+    -- ** Eon relaxation
+    shelleyToAllegraEraToByronToAllegraEra,
+    alonzoEraOnwardsToMaryEraOnwards,
+
     -- * Assertions on era
     requireShelleyBasedEra,
 
@@ -1053,6 +1057,7 @@ import           Cardano.Api.Eon.ShelleyToBabbageEra
 import           Cardano.Api.Eon.ShelleyToMaryEra
 import           Cardano.Api.EraCast
 import           Cardano.Api.Eras
+import           Cardano.Api.Eras.Case
 import           Cardano.Api.Eras.Constraints
 import           Cardano.Api.Error
 import           Cardano.Api.Feature