Rename errorAdaptor to checkType

Co-authored-by: Mateusz Galazyn <[email protected]>
IntersectMBO · Sep 25, 2024 · 9aae3ce · 9aae3ce
1 parent 7cd0239
commit 9aae3ce
Showing 1 changed file with 3 additions and 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
@@ -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 ()