From 93027e43b370c044d6caa8c1bf9aa8f175094d26 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 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 ()