Unqualify Cardano.Api

Co-authored-by: Mateusz Galazyn <[email protected]>

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