diff --git a/cardano-api/internal/Cardano/Api/Experimental/Eras.hs b/cardano-api/internal/Cardano/Api/Experimental/Eras.hs
index b0c8f9cb9..34fb30c71 100644
--- 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)