Add function to access anchor data from GovAction and fix typo

IntersectMBO · Oct 31, 2024 · 694008a · 694008a
1 parent 3bf693a
commit 694008a
Show file tree

Hide file tree

Showing 2 changed files with 17 additions and 1 deletion.
diff --git a/cardano-api/internal/Cardano/Api/Certificate.hs b/cardano-api/internal/Cardano/Api/Certificate.hs
@@ -743,7 +743,7 @@ instance Error AnchorDataFromCertificateError where
   prettyError (InvalidPoolMetadataHashError url hash) =
     "Invalid pool metadata hash for URL " <> fromString (show url) <> ": " <> fromString (show hash)
 
--- | Get anchor data hash from a certificate. A return value of `Nothing`
+-- | Get anchor data url and hash from a certificate. A return value of `Nothing`
 -- means that the certificate does not contain anchor data.
 getAnchorDataFromCertificate
   :: Certificate era

diff --git a/cardano-api/internal/Cardano/Api/Governance/Actions/ProposalProcedure.hs b/cardano-api/internal/Cardano/Api/Governance/Actions/ProposalProcedure.hs
@@ -230,3 +230,19 @@ createAnchor url anchorData =
     { anchorUrl = url
     , anchorDataHash = hashAnchorData $ Ledger.AnchorData anchorData
     }
+
+-- | Get anchor data url and hash from a governance action. A return value of `Nothing`
+-- means that the governance action does not contain anchor data.
+getAnchorDataFromGovernanceAction
+  :: EraCrypto (ShelleyLedgerEra era) ~ StandardCrypto
+  => Gov.GovAction (ShelleyLedgerEra era)
+  -> Maybe (Ledger.Anchor StandardCrypto)
+getAnchorDataFromGovernanceAction govAction =
+  case govAction of
+    Gov.ParameterChange{} -> Nothing
+    Gov.HardForkInitiation _ _ -> Nothing
+    Gov.TreasuryWithdrawals _ _ -> Nothing
+    Gov.NoConfidence _ -> Nothing
+    Gov.UpdateCommittee{} -> Nothing
+    Gov.NewConstitution _ constitution -> Just $ Ledger.constitutionAnchor constitution
+    Gov.InfoAction -> Nothing