From 78f05e0d79706772760b447d976ff27b59f47763 Mon Sep 17 00:00:00 2001 From: Pablo Lamela Date: Fri, 25 Oct 2024 19:41:51 +0200 Subject: [PATCH] Add comment to `checkGovActionHashes` --- cardano-cli/src/Cardano/CLI/EraBased/Transaction/HashCheck.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/cardano-cli/src/Cardano/CLI/EraBased/Transaction/HashCheck.hs b/cardano-cli/src/Cardano/CLI/EraBased/Transaction/HashCheck.hs index 99d6743ee..761eef5b4 100644 --- a/cardano-cli/src/Cardano/CLI/EraBased/Transaction/HashCheck.hs +++ b/cardano-cli/src/Cardano/CLI/EraBased/Transaction/HashCheck.hs @@ -8,6 +8,7 @@ module Cardano.CLI.EraBased.Transaction.HashCheck where import Cardano.Api (Certificate (..), ExceptT, firstExceptT) +import qualified Cardano.Api as L import qualified Cardano.Api.Ledger as L import qualified Cardano.Api.Shelley as Shelley @@ -16,7 +17,6 @@ import Cardano.CLI.Types.Common (MustCheckHash (..), PotentiallyChecke import Cardano.CLI.Types.Errors.TxCmdError (TxCmdError (..)) import Control.Monad (forM_) -import qualified Cardano.Api as L -- | Check the hash of the anchor data against the hash in the anchor checkAnchorMetadataHash :: L.Anchor L.StandardCrypto -> ExceptT TxCmdError IO () @@ -72,6 +72,7 @@ checkProposalHashes checkGovActionHashes :: L.GovAction (Shelley.ShelleyLedgerEra era) -> ExceptT TxCmdError IO () checkGovActionHashes govAction' = + -- Only the `NewConstitution` governance action contains a checkable hash with a corresponding URL. Shelley.shelleyBasedEraConstraints eon $ case govAction' of L.ParameterChange{} -> return ()