From f7dcbd8ea071e70da68015cccea0fc8e57d91bb2 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Cl=C3=A9ment=20Hurlin?= Date: Fri, 6 Dec 2024 10:22:00 +0100 Subject: [PATCH] Add 'Convert Era MaryEraOnwards' instance --- cardano-api/internal/Cardano/Api/Experimental/Eras.hs | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/cardano-api/internal/Cardano/Api/Experimental/Eras.hs b/cardano-api/internal/Cardano/Api/Experimental/Eras.hs index c4f9af8678..7515bef974 100644 --- 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