Merge pull request #329 from input-output-hk/newhoggy/new-shelleyToAl…

…onzoEraToShelleyToBabbageEra-function New `shelleyToAlonzoEraToShelleyToBabbageEra` function
IntersectMBO · Oct 19, 2023 · 0e670df · 0e670df
2 parents 9f04c2f + 3c1308c
commit 0e670df
Show file tree

Hide file tree

Showing 2 changed files with 16 additions and 3 deletions.
diff --git a/cardano-api/internal/Cardano/Api/Eras/Case.hs b/cardano-api/internal/Cardano/Api/Eras/Case.hs
@@ -32,6 +32,7 @@ module Cardano.Api.Eras.Case
 
     -- Conversions
   , shelleyToAllegraEraToByronToAllegraEra
+  , shelleyToAlonzoEraToShelleyToBabbageEra
   , alonzoEraOnlyToAlonzoEraOnwards
   , alonzoEraOnwardsToMaryEraOnwards
   , babbageEraOnwardsToMaryEraOnwards
@@ -254,6 +255,15 @@ shelleyToAllegraEraToByronToAllegraEra = \case
   ShelleyToAllegraEraShelley -> ByronToAllegraEraShelley
   ShelleyToAllegraEraAllegra -> ByronToAllegraEraAllegra
 
+shelleyToAlonzoEraToShelleyToBabbageEra :: ()
+  => ShelleyToAlonzoEra era
+  -> ShelleyToBabbageEra era
+shelleyToAlonzoEraToShelleyToBabbageEra = \case
+  ShelleyToAlonzoEraShelley -> ShelleyToBabbageEraShelley
+  ShelleyToAlonzoEraAllegra -> ShelleyToBabbageEraAllegra
+  ShelleyToAlonzoEraMary -> ShelleyToBabbageEraMary
+  ShelleyToAlonzoEraAlonzo -> ShelleyToBabbageEraAlonzo
+
 alonzoEraOnwardsToMaryEraOnwards :: ()
   => AlonzoEraOnwards era
   -> MaryEraOnwards era

diff --git a/cardano-api/src/Cardano/Api.hs b/cardano-api/src/Cardano/Api.hs
@@ -166,15 +166,18 @@ module Cardano.Api (
     caseAlonzoOnlyOrBabbageEraOnwards,
 
     -- ** Eon relaxation
+
+    -- *** for AlonzoEraOnly
     shelleyToAllegraEraToByronToAllegraEra,
+    shelleyToAlonzoEraToShelleyToBabbageEra,
 
-    -- *** Case on AlonzoEraOnly
+    -- *** for AlonzoEraOnly
     alonzoEraOnlyToAlonzoEraOnwards,
 
-    -- *** Case on AlonzoEraOnwards
+    -- *** for AlonzoEraOnwards
     alonzoEraOnwardsToMaryEraOnwards,
 
-    -- *** Case on BabbageEraOnwards
+    -- *** for BabbageEraOnwards
     babbageEraOnwardsToMaryEraOnwards,
     babbageEraOnwardsToAlonzoEraOnwards,