Add 'Convert Era MaryEraOnwards' instance

IntersectMBO · Dec 6, 2024 · f7dcbd8 · f7dcbd8
1 parent d6a956f
commit f7dcbd8
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/cardano-api/internal/Cardano/Api/Experimental/Eras.hs b/cardano-api/internal/Cardano/Api/Experimental/Eras.hs
@@ -34,6 +34,7 @@ where
 
 import           Cardano.Api.Eon.BabbageEraOnwards
 import           Cardano.Api.Eon.Convert
+import           Cardano.Api.Eon.MaryEraOnwards
 import           Cardano.Api.Eon.ShelleyBasedEra (ShelleyBasedEra (..), ShelleyLedgerEra)
 import qualified Cardano.Api.Eras as Api
 import           Cardano.Api.Eras.Core (BabbageEra, ConwayEra, Eon (..))
@@ -201,6 +202,11 @@ instance Convert Era ShelleyBasedEra where
     BabbageEra -> ShelleyBasedEraBabbage
     ConwayEra -> ShelleyBasedEraConway
 
+instance Convert Era MaryEraOnwards where
+  convert = \case
+    BabbageEra -> MaryEraOnwardsBabbage
+    ConwayEra -> MaryEraOnwardsConway
+
 instance Convert Era BabbageEraOnwards where
   convert = \case
     BabbageEra -> BabbageEraOnwardsBabbage