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