From 7cd0239376a393072691418ebf942ded280ed57c Mon Sep 17 00:00:00 2001 From: Pablo Lamela Date: Wed, 25 Sep 2024 18:09:58 +0200 Subject: [PATCH] Add haddock to `carryHashChecks` --- .../src/Cardano/CLI/EraBased/Run/Governance/Actions.hs | 5 +++++ 1 file changed, 5 insertions(+) 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 c6ff65e45..5b60fcdbb 100644 --- a/cardano-cli/src/Cardano/CLI/EraBased/Run/Governance/Actions.hs +++ b/cardano-cli/src/Cardano/CLI/EraBased/Run/Governance/Actions.hs @@ -514,10 +514,15 @@ runGovernanceActionHardforkInitCmd conwayEraOnwardsConstraints eon $ writeFileTextEnvelope outFile (Just "Hardfork initiation proposal") proposalProcedure +-- | Check the hash of the anchor data against the hash in the anchor if +-- checkHash is set to CheckHash. carryHashChecks :: MustCheckHash a + -- ^ Whether to check the hash or not (CheckHash for checking or TrustHash for not checking) -> L.Anchor L.StandardCrypto + -- ^ The anchor data whose hash is to be checked -> AnchorDataTypeCheck + -- ^ The type of anchor data to check (for error reporting purpouses) -> ExceptT GovernanceActionsError IO () carryHashChecks checkHash anchor errorAdaptor = case checkHash of