From 9aae3ce0cc4720cedc126945ad7f5fea1c4d8f49 Mon Sep 17 00:00:00 2001
From: Pablo Lamela <pablo.lamela@iohk.io>
Date: Wed, 25 Sep 2024 18:49:41 +0200
Subject: [PATCH] Rename `errorAdaptor` to `checkType`

Co-authored-by: Mateusz Galazyn <228866+carbolymer@users.noreply.github.com>
---
 .../src/Cardano/CLI/EraBased/Run/Governance/Actions.hs      | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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 5b60fcdbb0..3f50d903c1 100644
--- a/cardano-cli/src/Cardano/CLI/EraBased/Run/Governance/Actions.hs
+++ b/cardano-cli/src/Cardano/CLI/EraBased/Run/Governance/Actions.hs
@@ -524,16 +524,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 ()