From 114680d10e45966cbe669d73685b8dbf1c34b4c7 Mon Sep 17 00:00:00 2001 From: Pablo Lamela Date: Thu, 31 Oct 2024 12:31:07 +0100 Subject: [PATCH] Unqualify `Cardano.Api` Co-authored-by: Mateusz Galazyn <228866+carbolymer@users.noreply.github.com> --- .../src/Cardano/CLI/EraBased/Transaction/HashCheck.hs | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/cardano-cli/src/Cardano/CLI/EraBased/Transaction/HashCheck.hs b/cardano-cli/src/Cardano/CLI/EraBased/Transaction/HashCheck.hs index 8f8db3fbc..d294714ff 100644 --- a/cardano-cli/src/Cardano/CLI/EraBased/Transaction/HashCheck.hs +++ b/cardano-cli/src/Cardano/CLI/EraBased/Transaction/HashCheck.hs @@ -7,8 +7,8 @@ module Cardano.CLI.EraBased.Transaction.HashCheck ) where -import Cardano.Api (Certificate (..), ExceptT, firstExceptT) -import qualified Cardano.Api as L +import Cardano.Api (Certificate (..), ExceptT, firstExceptT, getAnchorDataFromCertificate, + withExceptT) import qualified Cardano.Api.Ledger as L import qualified Cardano.Api.Shelley as Shelley @@ -33,7 +33,8 @@ checkAnchorMetadataHash anchor = -- and they match the linked data. checkCertificateHashes :: Certificate era -> ExceptT TxCmdError IO () checkCertificateHashes cert = do - mAnchor <- L.withExceptT TxCmdPoolMetadataHashError $ L.except $ L.getAnchorDataFromCertificate cert + mAnchor <- + withExceptT TxCmdPoolMetadataHashError $ Shelley.except $ getAnchorDataFromCertificate cert maybe (return mempty) checkAnchorMetadataHash mAnchor -- | Find references to anchor data in voting procedures and check the hashes are valid