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 ca12f13d77..c8d4729488 100644 --- a/cardano-cli/src/Cardano/CLI/EraBased/Run/Governance/Actions.hs +++ b/cardano-cli/src/Cardano/CLI/EraBased/Run/Governance/Actions.hs @@ -519,16 +519,16 @@ carryHashChecks -> AnchorDataTypeCheck -- ^ The type of anchor data to check (for error reporting purpouses) -> ExceptT GovernanceActionsError IO () -carryHashChecks checkHash anchor errorAdaptor = +carryHashChecks checkHash anchor checkType = case checkHash of CheckHash -> do anchorData <- L.AnchorData <$> fetchURLErrorToGovernanceActionError - errorAdaptor + checkType (getByteStringFromURL httpsAndIpfsSchemas $ L.anchorUrl anchor) let hash = L.hashAnchorData anchorData when (hash /= L.anchorDataHash anchor) $ left $ - GovernanceActionsProposalMismatchedHashError errorAdaptor (L.anchorDataHash anchor) hash + GovernanceActionsProposalMismatchedHashError checkType (L.anchorDataHash anchor) hash TrustHash -> pure ()