Update legacyComparison to accept "CertificateConway"

Author: Jimbo4350

cardano-api/src/Cardano/Api/Certificate/Internal.hs

@@ -587,8 +587,8 @@ filterUnRegDRepCreds sbe (Exp.Certificate cert) =
     ShelleyBasedEraBabbage -> Nothing
     ShelleyBasedEraConway ->
       conwayEraOnwardsConstraints ConwayEraOnwardsConway $
-        fmap fst $
-          Ledger.getUnRegDRepTxCert cert
+        fst
+          <$> Ledger.getUnRegDRepTxCert cert
 
 -- ----------------------------------------------------------------------------
 -- Internal conversion functions

cardano-api/src/Cardano/Api/Experimental/Tx/Internal/Certificate.hs

@@ -19,10 +19,7 @@ module Cardano.Api.Experimental.Tx.Internal.Certificate
   )
 where
 
-import Cardano.Api.Certificate.Internal qualified as Api
-import Cardano.Api.Era.Internal.Eon.ConwayEraOnwards
 import Cardano.Api.Era.Internal.Eon.ShelleyBasedEra
-import Cardano.Api.Era.Internal.Eon.ShelleyToBabbageEra qualified as Api
 import Cardano.Api.Error
 import Cardano.Api.Experimental.Era
 import Cardano.Api.HasTypeProxy

cardano-api/src/Cardano/Api/Serialise/TextEnvelope/Internal.hs

@@ -185,6 +185,7 @@ legacyComparison (TextEnvelopeType expectedType) (TextEnvelopeType actualType) =
     ("Tx AlonzoEra", "Unwitnessed Tx AlonzoEra") -> True
     ("Tx BabbageEra", "Unwitnessed Tx BabbageEra") -> True
     ("Tx ConwayEra", "Unwitnessed Tx ConwayEra") -> True
+    ("Certificate", "CertificateConway") -> True
     (expectedOther, expectedActual) -> expectedOther == expectedActual
 
 -- ----------------------------------------------------------------------------