Merge pull request #1286 from IntersectMBO/jordan/final-deprecate-certificate

Deprecate certificate

Author: Jimbo4350

cabal.project

@@ -14,7 +14,7 @@ repository cardano-haskell-packages
 -- you need to run if you change them
 index-state:
   , hackage.haskell.org 2025-11-05T09:40:54Z
-  , cardano-haskell-packages 2025-11-05T10:16:35Z
+  , cardano-haskell-packages 2025-11-18T18:44:49Z
 
 packages:
   cardano-cli

cardano-cli/cardano-cli.cabal

@@ -241,7 +241,7 @@ library
     binary,
     bytestring,
     canonical-json,
-    cardano-api ^>=10.19.1,
+    cardano-api ^>=10.20,
     cardano-binary,
     cardano-crypto,
     cardano-crypto-class ^>=2.2,
@@ -387,6 +387,7 @@ test-suite cardano-cli-test
   build-tool-depends: tasty-discover:tasty-discover
   other-modules:
     Test.Cli.AddCostModels
+    Test.Cli.Certificates.GenesisKeyDelegationCertificate
     Test.Cli.Certificates.StakePool
     Test.Cli.CheckNodeConfiguration
     Test.Cli.Compatible.StakeAddress.DelegationCertificate
@@ -507,7 +508,6 @@ test-suite cardano-cli-golden
     Test.Golden.Shelley.StakeAddress.KeyHash
     Test.Golden.Shelley.StakeAddress.RegistrationCertificate
     Test.Golden.Shelley.StakePool.RegistrationCertificate
-    Test.Golden.Shelley.TextEnvelope.Certificates.GenesisKeyDelegation
     Test.Golden.Shelley.TextEnvelope.Certificates.Operational
     Test.Golden.Shelley.TextEnvelope.Keys.ExtendedPaymentKeys
     Test.Golden.Shelley.TextEnvelope.Keys.GenesisDelegateKeys

cardano-cli/src/Cardano/CLI/Compatible/Governance/Command.hs

@@ -36,7 +36,6 @@ data CompatibleGovernanceCmds era
       Coin
       (File () Out)
   | CompatibleGenesisKeyDelegationCertificate
-      (ShelleyToBabbageEra era)
       (VerificationKeyOrHashOrFile GenesisKey)
       (VerificationKeyOrHashOrFile GenesisDelegateKey)
       (VerificationKeyOrHashOrFile VrfKey)

cardano-cli/src/Cardano/CLI/Compatible/Governance/Option.hs

@@ -43,7 +43,7 @@ pCompatibleGovernanceCmds sbe =
                       ]
                 )
                 [ pCreateMirCertificatesCmds sbe
-                , pGovernanceGenesisKeyDelegationCertificate sbe
+                , pGovernanceGenesisKeyDelegationCertificate
                 , fmap CreateCompatibleProtocolParametersUpdateCmd <$> pGovernanceActionCmds sbe
                 ]
           )
@@ -119,19 +119,16 @@ pUpdateProtocolParametersPreConway shelleyToBab =
     <*> pProtocolParametersUpdateGenesisKeys
 
 pGovernanceGenesisKeyDelegationCertificate
-  :: ()
-  => ShelleyBasedEra era
-  -> Maybe (Parser (CompatibleGovernanceCmds era))
-pGovernanceGenesisKeyDelegationCertificate sbe = do
-  w <- forShelleyBasedEraMaybeEon sbe
+  :: Maybe (Parser (CompatibleGovernanceCmds era))
+pGovernanceGenesisKeyDelegationCertificate = do
   pure $
     Opt.hsubparser $
       commandWithMetavar "create-genesis-key-delegation-certificate" $
-        Opt.info (parser w) $
+        Opt.info parser $
           Opt.progDesc "Create a genesis key delegation certificate"
  where
-  parser w =
-    CompatibleGenesisKeyDelegationCertificate w
+  parser =
+    CompatibleGenesisKeyDelegationCertificate
       <$> pGenesisVerificationKeyOrHashOrFile
       <*> pGenesisDelegateVerificationKeyOrHashOrFile
       <*> pVrfVerificationKeyOrHashOrFile

cardano-cli/src/Cardano/CLI/Compatible/Governance/Run.hs

@@ -25,13 +25,13 @@ import Cardano.CLI.Type.Error.GovernanceActionsError
 
 import Data.Typeable (Typeable)
 
-runCompatibleGovernanceCmds :: Typeable era => CompatibleGovernanceCmds era -> CIO e ()
+runCompatibleGovernanceCmds :: CompatibleGovernanceCmds era -> CIO e ()
 runCompatibleGovernanceCmds = \case
   CreateCompatibleProtocolParametersUpdateCmd cmd ->
     runCompatibleGovernanceActionCreateProtocolParametersUpdateCmd cmd
   LatestCompatibleGovernanceCmds cmd -> runGovernanceCmds cmd
-  CompatibleGenesisKeyDelegationCertificate sta genVk genDelegVk vrfVk out ->
-    runGovernanceGenesisKeyDelegationCertificate sta genVk genDelegVk vrfVk out
+  CompatibleGenesisKeyDelegationCertificate genVk genDelegVk vrfVk out ->
+    runGovernanceGenesisKeyDelegationCertificate genVk genDelegVk vrfVk out
   CompatibleCreateMirCertificateStakeAddressesCmd w mirpot vKeys rewards out ->
     runGovernanceMIRCertificatePayStakeAddrs w mirpot vKeys rewards out
   CompatibleCreateMirCertificateTransferToReservesCmd w ll oFp ->