Add comment to checkGovActionHashes

IntersectMBO · Oct 25, 2024 · 78f05e0 · 78f05e0
1 parent 5784d62
commit 78f05e0
Showing 1 changed file with 2 additions and 1 deletion.
diff --git 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 ()