Add instance ToCardanoEra Exp.Era

IntersectMBO · Nov 14, 2024 · ec04444 · ec04444
1 parent d7c62a0
commit ec04444
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
@@ -234,6 +234,12 @@ instance Eon Era where
     Api.BabbageEra -> f BabbageEra
     _ -> v
 
+-- | A temporary compatibility instance, for easier conversion between experimental and old API.
+instance Api.ToCardanoEra Era where
+  toCardanoEra = \case
+    BabbageEra -> Api.BabbageEra
+    ConwayEra -> Api.ConwayEra
+
 obtainCommonConstraints
   :: Era era
   -> (EraCommonConstraints era => a)