From ec02ddc9e8280b727e7cf7fc41031bc8597c7d02 Mon Sep 17 00:00:00 2001
From: Pablo Lamela <pablo.lamela@iohk.io>
Date: Mon, 13 Jan 2025 15:52:25 +0100
Subject: [PATCH] Reupdate to match with API refactoring

---
 cabal.project                                             | 4 ++--
 .../src/Cardano/CLI/EraBased/Run/Governance/Actions.hs    | 2 +-
 .../src/Cardano/CLI/EraBased/Run/Governance/DRep.hs       | 4 ++--
 .../src/Cardano/CLI/EraBased/Run/Governance/Vote.hs       | 2 +-
 .../src/Cardano/CLI/EraBased/Transaction/HashCheck.hs     | 8 ++++----
 5 files changed, 10 insertions(+), 10 deletions(-)

diff --git a/cabal.project b/cabal.project
index fb640265d4..8e8590677b 100644
--- a/cabal.project
+++ b/cabal.project
@@ -23,8 +23,8 @@ source-repository-package
   type: git
   location: https://github.com/IntersectMBO/cardano-api
   subdir: cardano-api
-  tag: c38afa8b9007944c865ef6251aa6c8b564d6273a
-  --sha256: sha256-mkyiXCs69q31QSxWhF99wOTK8WadMtpJSfJ+Z3bFdbg=
+  tag: 504575eae1c4559b28f80e90e24caefe796a75e6
+  --sha256: sha256-lUZfKqf9KfIrBn/VOCHCBpp3vjll7CecHOIlvHfSLJk=
 
 program-options
   ghc-options: -Werror
diff --git a/cardano-cli/src/Cardano/CLI/EraBased/Run/Governance/Actions.hs b/cardano-cli/src/Cardano/CLI/EraBased/Run/Governance/Actions.hs
index a476f845bb..0af3f222fb 100644
--- a/cardano-cli/src/Cardano/CLI/EraBased/Run/Governance/Actions.hs
+++ b/cardano-cli/src/Cardano/CLI/EraBased/Run/Governance/Actions.hs
@@ -525,7 +525,7 @@ carryHashChecksWrapper
 carryHashChecksWrapper checkHash anchor checkType =
   firstExceptT (GovernanceActionsHashCheckError checkType) $
     carryHashChecks
-      (validateGovActionAnchorData CIP108)
+      (validateGovActionAnchorData BaseGovActionMetadata)
       ( PotentiallyCheckedAnchor
           { pcaMustCheck = checkHash
           , pcaAnchor = anchor
diff --git a/cardano-cli/src/Cardano/CLI/EraBased/Run/Governance/DRep.hs b/cardano-cli/src/Cardano/CLI/EraBased/Run/Governance/DRep.hs
index 663584b133..325252aedb 100644
--- a/cardano-cli/src/Cardano/CLI/EraBased/Run/Governance/DRep.hs
+++ b/cardano-cli/src/Cardano/CLI/EraBased/Run/Governance/DRep.hs
@@ -116,7 +116,7 @@ runGovernanceDRepRegistrationCertificateCmd
 
       mapM_
         ( withExceptT RegistrationDRepHashCheckError
-            . carryHashChecks (validateGovActionAnchorData CIP119)
+            . carryHashChecks (validateGovActionAnchorData DrepRegistrationMetadata)
         )
         mAnchor
 
@@ -167,7 +167,7 @@ runGovernanceDRepUpdateCertificateCmd
     conwayEraOnwardsConstraints w $ do
       mapM_
         ( withExceptT GovernanceDRepHashCheckError
-            . carryHashChecks (validateGovActionAnchorData CIP119)
+            . carryHashChecks (validateGovActionAnchorData DrepRegistrationMetadata)
         )
         mAnchor
       drepCredential <- modifyError GovernanceCmdKeyReadError $ readDRepCredential drepHashSource
diff --git a/cardano-cli/src/Cardano/CLI/EraBased/Run/Governance/Vote.hs b/cardano-cli/src/Cardano/CLI/EraBased/Run/Governance/Vote.hs
index fc0207dfd5..839adc753a 100644
--- a/cardano-cli/src/Cardano/CLI/EraBased/Run/Governance/Vote.hs
+++ b/cardano-cli/src/Cardano/CLI/EraBased/Run/Governance/Vote.hs
@@ -65,7 +65,7 @@ runGovernanceVoteCreateCmd
 
     mapM_
       ( withExceptT GovernanceVoteCmdResignationCertHashCheckError
-          . carryHashChecks (validateGovActionAnchorData CIP108)
+          . carryHashChecks (validateGovActionAnchorData BaseGovActionMetadata)
       )
       mAnchor'
 
diff --git a/cardano-cli/src/Cardano/CLI/EraBased/Transaction/HashCheck.hs b/cardano-cli/src/Cardano/CLI/EraBased/Transaction/HashCheck.hs
index 659e8739ab..46c270cef2 100644
--- a/cardano-cli/src/Cardano/CLI/EraBased/Transaction/HashCheck.hs
+++ b/cardano-cli/src/Cardano/CLI/EraBased/Transaction/HashCheck.hs
@@ -42,7 +42,7 @@ checkCertificateHashes cert = do
     (return mempty)
     ( checkAnchorMetadataHash
         ( if isDRepRegOrUpdateCert cert
-            then validateGovActionAnchorData Shelley.CIP119
+            then validateGovActionAnchorData Shelley.DrepRegistrationMetadata
             else const $ return ()
         )
     )
@@ -57,7 +57,7 @@ checkVotingProcedureHashes eon (Shelley.VotingProcedures (L.VotingProcedures vot
     forM_
       voterMap
       ( mapM $ \(L.VotingProcedure _ mAnchor) ->
-          forM_ mAnchor $ checkAnchorMetadataHash $ validateGovActionAnchorData Shelley.CIP108
+          forM_ mAnchor $ checkAnchorMetadataHash $ validateGovActionAnchorData Shelley.BaseGovActionMetadata
       )
 
 -- | Find references to anchor data in proposals and check the hashes are valid
@@ -74,10 +74,10 @@ checkProposalHashes
         )
     ) =
     Shelley.shelleyBasedEraConstraints eon $ do
-      checkAnchorMetadataHash (validateGovActionAnchorData Shelley.CIP108) anchor
+      checkAnchorMetadataHash (validateGovActionAnchorData Shelley.BaseGovActionMetadata) anchor
       maybe
         (return ())
-        (checkAnchorMetadataHash $ validateGovActionAnchorData Shelley.CIP108)
+        (checkAnchorMetadataHash $ validateGovActionAnchorData Shelley.BaseGovActionMetadata)
         (getAnchorDataFromGovernanceAction govAction)
 
 -- Only the `NewConstitution` governance action contains a checkable hash with a corresponding URL.