Skip to content

Commit ce66052

Browse files
committed
Add Convert instance for ConwayEraOnwards to Era
1 parent 615bbba commit ce66052

File tree

1 file changed

+5
-0
lines changed
  • cardano-api/src/Cardano/Api/Internal/Experimental

1 file changed

+5
-0
lines changed

cardano-api/src/Cardano/Api/Internal/Experimental/Eras.hs

Lines changed: 5 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -34,6 +34,7 @@ where
3434
import Cardano.Api.Internal.Eon.AlonzoEraOnwards
3535
import Cardano.Api.Internal.Eon.BabbageEraOnwards
3636
import Cardano.Api.Internal.Eon.Convert
37+
import Cardano.Api.Internal.Eon.ConwayEraOnwards
3738
import Cardano.Api.Internal.Eon.ShelleyBasedEra (ShelleyBasedEra (..), ShelleyLedgerEra)
3839
import Cardano.Api.Internal.Eras qualified as Api
3940
import Cardano.Api.Internal.Eras.Core (BabbageEra, ConwayEra, Eon (..))
@@ -211,6 +212,10 @@ instance Convert Era BabbageEraOnwards where
211212
convert = \case
212213
ConwayEra -> BabbageEraOnwardsConway
213214

215+
instance Convert ConwayEraOnwards Era where
216+
convert = \case
217+
ConwayEraOnwardsConway -> ConwayEra
218+
214219
newtype DeprecatedEra era
215220
= DeprecatedEra (ShelleyBasedEra era)
216221
deriving Show

0 commit comments

Comments
 (0)