diff --git a/.github/workflows/haskell.yml b/.github/workflows/haskell.yml index ebecb0d5d0..941369a718 100644 --- a/.github/workflows/haskell.yml +++ b/.github/workflows/haskell.yml @@ -24,7 +24,7 @@ jobs: env: # Modify this value to "invalidate" the cabal cache. - CABAL_CACHE_VERSION: "2024-02-12-2" + CABAL_CACHE_VERSION: "2024-02-22" concurrency: group: > diff --git a/cabal.project b/cabal.project index 7d5650d1ee..217c84ad95 100644 --- a/cabal.project +++ b/cabal.project @@ -13,8 +13,8 @@ repository cardano-haskell-packages -- See CONTRIBUTING for information about these, including some Nix commands -- you need to run if you change them index-state: - , hackage.haskell.org 2024-02-14T11:32:54Z - , cardano-haskell-packages 2024-02-14T10:17:08Z + , hackage.haskell.org 2024-02-15T11:36:53Z + , cardano-haskell-packages 2024-02-21T14:57:01Z packages: cardano-cli diff --git a/cardano-cli/cardano-cli.cabal b/cardano-cli/cardano-cli.cabal index d7d62bf206..154fb0703d 100644 --- a/cardano-cli/cardano-cli.cabal +++ b/cardano-cli/cardano-cli.cabal @@ -196,7 +196,7 @@ library , binary , bytestring , canonical-json - , cardano-api ^>= 8.38.0.2 + , cardano-api ^>= 8.39.0.0 , cardano-binary , cardano-crypto , cardano-crypto-class ^>= 2.1.2 @@ -275,7 +275,6 @@ library cardano-cli-test-lib , hedgehog-extras ^>= 0.6.1.0 , process , text - , transformers test-suite cardano-cli-test import: project-config @@ -301,7 +300,6 @@ test-suite cardano-cli-test , tasty-hedgehog , text , time - , transformers build-tool-depends: tasty-discover:tasty-discover diff --git a/cardano-cli/src/Cardano/CLI/Byron/Delegation.hs b/cardano-cli/src/Cardano/CLI/Byron/Delegation.hs index 44577e42ae..85ef70c242 100644 --- a/cardano-cli/src/Cardano/CLI/Byron/Delegation.hs +++ b/cardano-cli/src/Cardano/CLI/Byron/Delegation.hs @@ -14,7 +14,6 @@ module Cardano.CLI.Byron.Delegation where import Cardano.Api.Byron -import Cardano.Api.Pretty import qualified Cardano.Chain.Delegation as Dlg import Cardano.Chain.Slotting (EpochNumber) @@ -29,9 +28,6 @@ import Prelude hiding ((.)) import Control.Category import Control.Monad (unless) -import Control.Monad.IO.Class (MonadIO (..)) -import Control.Monad.Trans.Except (ExceptT) -import Control.Monad.Trans.Except.Extra (left) import Data.ByteString (ByteString) import qualified Data.ByteString.Lazy as LB import Data.Text (Text) diff --git a/cardano-cli/src/Cardano/CLI/Byron/Genesis.hs b/cardano-cli/src/Cardano/CLI/Byron/Genesis.hs index 8ef60131b6..b1b132a3fc 100644 --- a/cardano-cli/src/Cardano/CLI/Byron/Genesis.hs +++ b/cardano-cli/src/Cardano/CLI/Byron/Genesis.hs @@ -12,10 +12,9 @@ module Cardano.CLI.Byron.Genesis ) where -import Cardano.Api (Key (..), NetworkId, writeSecrets) +import Cardano.Api (Doc, Key (..), NetworkId, pretty, pshow, writeSecrets) import Cardano.Api.Byron (ByronKey, SerialiseAsRawBytes (..), SigningKey (..), toByronRequiresNetworkMagic) -import Cardano.Api.Pretty import qualified Cardano.Chain.Common as Common import Cardano.Chain.Delegation hiding (Map, epoch) diff --git a/cardano-cli/src/Cardano/CLI/Byron/Key.hs b/cardano-cli/src/Cardano/CLI/Byron/Key.hs index 6bf0df5b7b..c743579831 100644 --- a/cardano-cli/src/Cardano/CLI/Byron/Key.hs +++ b/cardano-cli/src/Cardano/CLI/Byron/Key.hs @@ -17,16 +17,12 @@ module Cardano.CLI.Byron.Key where import Cardano.Api.Byron -import Cardano.Api.Pretty import qualified Cardano.Chain.Common as Common import Cardano.CLI.Types.Common import qualified Cardano.Crypto.Signing as Crypto import Control.Exception (Exception (..)) -import Control.Monad.Trans.Except (ExceptT) -import Control.Monad.Trans.Except.Extra (firstExceptT, handleIOExceptT, hoistEither, left, - right) import qualified Data.ByteString as SB import qualified Data.ByteString.UTF8 as UTF8 import Data.String (IsString, fromString) diff --git a/cardano-cli/src/Cardano/CLI/Byron/Parsers.hs b/cardano-cli/src/Cardano/CLI/Byron/Parsers.hs index cc38d1402c..a446a1589e 100644 --- a/cardano-cli/src/Cardano/CLI/Byron/Parsers.hs +++ b/cardano-cli/src/Cardano/CLI/Byron/Parsers.hs @@ -27,7 +27,6 @@ module Cardano.CLI.Byron.Parsers import Cardano.Api hiding (GenesisParameters, UpdateProposal) import Cardano.Api.Byron (Address (..), ByronProtocolParametersUpdate (..), toByronLovelace) -import Cardano.Api.Pretty import Cardano.Api.Shelley (ReferenceScript (ReferenceScriptNone)) import Cardano.Chain.Common (BlockCount (..), TxFeePolicy (..), TxSizeLinear (..), diff --git a/cardano-cli/src/Cardano/CLI/Byron/Run.hs b/cardano-cli/src/Cardano/CLI/Byron/Run.hs index 5c17012eee..f36ad6e99f 100644 --- a/cardano-cli/src/Cardano/CLI/Byron/Run.hs +++ b/cardano-cli/src/Cardano/CLI/Byron/Run.hs @@ -24,9 +24,6 @@ import Cardano.CLI.Types.Common import qualified Cardano.Crypto.Hashing as Crypto import qualified Cardano.Crypto.Signing as Crypto -import Control.Monad.IO.Class (MonadIO (liftIO)) -import Control.Monad.Trans.Except (ExceptT) -import Control.Monad.Trans.Except.Extra (firstExceptT, hoistEither, left) import Data.Bifunctor (Bifunctor (..)) import qualified Data.ByteString.Char8 as BS import Data.Text (Text) @@ -34,7 +31,6 @@ import qualified Data.Text.IO as Text import qualified Data.Text.Lazy.Builder as Builder import qualified Data.Text.Lazy.IO as TL import qualified Formatting as F -import Prettyprinter -- | Data type that encompasses all the possible errors of the -- Byron client. diff --git a/cardano-cli/src/Cardano/CLI/Byron/Tx.hs b/cardano-cli/src/Cardano/CLI/Byron/Tx.hs index 8fa70d995a..a786652047 100644 --- a/cardano-cli/src/Cardano/CLI/Byron/Tx.hs +++ b/cardano-cli/src/Cardano/CLI/Byron/Tx.hs @@ -28,7 +28,6 @@ where import Cardano.Api import Cardano.Api.Byron import qualified Cardano.Api.Ledger as L -import Cardano.Api.Pretty import qualified Cardano.Binary as Binary import qualified Cardano.Chain.Common as Common @@ -43,9 +42,6 @@ import qualified Ouroboros.Consensus.Byron.Ledger as Byron import Ouroboros.Consensus.Cardano.Block (EraMismatch (..)) import qualified Ouroboros.Network.Protocol.LocalTxSubmission.Client as Net.Tx -import Control.Monad.IO.Class (MonadIO (..)) -import Control.Monad.Trans.Except (ExceptT) -import Control.Monad.Trans.Except.Extra (left) import Data.Bifunctor (Bifunctor (..)) import Data.ByteString (ByteString) import qualified Data.ByteString as B diff --git a/cardano-cli/src/Cardano/CLI/Byron/UpdateProposal.hs b/cardano-cli/src/Cardano/CLI/Byron/UpdateProposal.hs index c96450721e..9b78ddb4b3 100644 --- a/cardano-cli/src/Cardano/CLI/Byron/UpdateProposal.hs +++ b/cardano-cli/src/Cardano/CLI/Byron/UpdateProposal.hs @@ -10,10 +10,9 @@ module Cardano.CLI.Byron.UpdateProposal , submitByronUpdateProposal ) where -import Cardano.Api (NetworkId, SerialiseAsRawBytes (..), SocketPath) +import Cardano.Api (Doc, NetworkId, SerialiseAsRawBytes (..), SocketPath, pshow) import Cardano.Api.Byron (AsType (AsByronUpdateProposal), ByronProtocolParametersUpdate, ByronUpdateProposal, makeByronUpdateProposal, toByronLedgerUpdateProposal) -import Cardano.Api.Pretty import Cardano.Chain.Update (InstallerHash (..), ProtocolVersion (..), SoftwareVersion (..), SystemTag (..)) diff --git a/cardano-cli/src/Cardano/CLI/Byron/Vote.hs b/cardano-cli/src/Cardano/CLI/Byron/Vote.hs index 17d56e1683..29c8502426 100644 --- a/cardano-cli/src/Cardano/CLI/Byron/Vote.hs +++ b/cardano-cli/src/Cardano/CLI/Byron/Vote.hs @@ -11,7 +11,6 @@ module Cardano.CLI.Byron.Vote ) where import Cardano.Api.Byron -import Cardano.Api.Pretty import qualified Cardano.Binary as Binary import Cardano.CLI.Byron.Genesis (ByronGenesisError) @@ -24,9 +23,6 @@ import Cardano.CLI.Types.Common import Ouroboros.Consensus.Ledger.SupportsMempool (txId) import Ouroboros.Consensus.Util.Condense (condense) -import Control.Monad.IO.Class (MonadIO (..)) -import Control.Monad.Trans.Except (ExceptT) -import Control.Monad.Trans.Except.Extra (firstExceptT, hoistEither) import Control.Tracer (stdoutTracer, traceWith) import Data.Bifunctor (first) import qualified Data.ByteString as BS diff --git a/cardano-cli/src/Cardano/CLI/EraBased/Commands/Governance/Actions.hs b/cardano-cli/src/Cardano/CLI/EraBased/Commands/Governance/Actions.hs index 3dfc58a2f3..5af5e230c6 100644 --- a/cardano-cli/src/Cardano/CLI/EraBased/Commands/Governance/Actions.hs +++ b/cardano-cli/src/Cardano/CLI/EraBased/Commands/Governance/Actions.hs @@ -28,9 +28,7 @@ import Cardano.Api.Shelley import Cardano.CLI.Types.Common import Cardano.CLI.Types.Key import qualified Cardano.Ledger.Alonzo.Scripts as Alonzo -import qualified Cardano.Ledger.BaseTypes as Ledger import qualified Cardano.Ledger.Crypto as Crypto -import qualified Cardano.Ledger.SafeHash as Ledger import Data.Text (Text) import Data.Word diff --git a/cardano-cli/src/Cardano/CLI/EraBased/Options/Common.hs b/cardano-cli/src/Cardano/CLI/EraBased/Options/Common.hs index 3ea68d284e..ab00e3e39f 100644 --- a/cardano-cli/src/Cardano/CLI/EraBased/Options/Common.hs +++ b/cardano-cli/src/Cardano/CLI/EraBased/Options/Common.hs @@ -13,7 +13,6 @@ module Cardano.CLI.EraBased.Options.Common where import Cardano.Api import qualified Cardano.Api.Ledger as Ledger -import Cardano.Api.Pretty import Cardano.Api.Shelley import Cardano.CLI.Environment (EnvCli (..), envCliAnyShelleyBasedEra, diff --git a/cardano-cli/src/Cardano/CLI/EraBased/Options/Governance/Actions.hs b/cardano-cli/src/Cardano/CLI/EraBased/Options/Governance/Actions.hs index 53e056a97b..a79019d64e 100644 --- a/cardano-cli/src/Cardano/CLI/EraBased/Options/Governance/Actions.hs +++ b/cardano-cli/src/Cardano/CLI/EraBased/Options/Governance/Actions.hs @@ -13,7 +13,6 @@ import Cardano.Api.Shelley import qualified Cardano.CLI.EraBased.Commands.Governance.Actions as Cmd import Cardano.CLI.EraBased.Options.Common import Cardano.CLI.Types.Common -import Cardano.Ledger.BaseTypes (NonNegativeInterval) import qualified Cardano.Ledger.BaseTypes as Ledger import Data.Foldable diff --git a/cardano-cli/src/Cardano/CLI/EraBased/Options/Transaction.hs b/cardano-cli/src/Cardano/CLI/EraBased/Options/Transaction.hs index 8283c64035..687a834816 100644 --- a/cardano-cli/src/Cardano/CLI/EraBased/Options/Transaction.hs +++ b/cardano-cli/src/Cardano/CLI/EraBased/Options/Transaction.hs @@ -19,7 +19,7 @@ import Data.Foldable import Options.Applicative hiding (help, str) import qualified Options.Applicative as Opt import qualified Options.Applicative.Help as H -import Prettyprinter (line, pretty) +import Prettyprinter (line) {- HLINT ignore "Use <$>" -} {- HLINT ignore "Move brackets to avoid $" -} diff --git a/cardano-cli/src/Cardano/CLI/EraBased/Run.hs b/cardano-cli/src/Cardano/CLI/EraBased/Run.hs index 1907e0c9a6..d1b68fc738 100644 --- a/cardano-cli/src/Cardano/CLI/EraBased/Run.hs +++ b/cardano-cli/src/Cardano/CLI/EraBased/Run.hs @@ -22,9 +22,7 @@ import Cardano.CLI.EraBased.Run.TextView import Cardano.CLI.EraBased.Run.Transaction import Cardano.CLI.Types.Errors.CmdError -import Control.Monad.Trans.Except -import Control.Monad.Trans.Except.Extra (firstExceptT) -import Data.Function ((&)) +import Data.Function runAnyEraCommand :: () => AnyEraCommand diff --git a/cardano-cli/src/Cardano/CLI/EraBased/Run/Address.hs b/cardano-cli/src/Cardano/CLI/EraBased/Run/Address.hs index d3ba338a5f..717fb287b5 100644 --- a/cardano-cli/src/Cardano/CLI/EraBased/Run/Address.hs +++ b/cardano-cli/src/Cardano/CLI/EraBased/Run/Address.hs @@ -26,9 +26,6 @@ import Cardano.CLI.Types.Key (PaymentVerifier (..), StakeIdentifier (. StakeVerifier (..), VerificationKeyTextOrFile, generateKeyPair, readVerificationKeyOrFile, readVerificationKeyTextOrFileAnyOf) -import Control.Monad.IO.Class (MonadIO (..)) -import Control.Monad.Trans.Except (ExceptT) -import Control.Monad.Trans.Except.Extra (firstExceptT, left, newExceptT) import qualified Data.ByteString.Char8 as BS import Data.Function import qualified Data.Text.IO as Text diff --git a/cardano-cli/src/Cardano/CLI/EraBased/Run/Address/Info.hs b/cardano-cli/src/Cardano/CLI/EraBased/Run/Address/Info.hs index 7ce5e5d1c6..fe71b29d72 100644 --- a/cardano-cli/src/Cardano/CLI/EraBased/Run/Address/Info.hs +++ b/cardano-cli/src/Cardano/CLI/EraBased/Run/Address/Info.hs @@ -9,9 +9,6 @@ import Cardano.Api import Cardano.CLI.Types.Errors.AddressInfoError -import Control.Monad.IO.Class (MonadIO (..)) -import Control.Monad.Trans.Except (ExceptT) -import Control.Monad.Trans.Except.Extra (left) import Data.Aeson (ToJSON (..), object, (.=)) import Data.Aeson.Encode.Pretty (encodePretty) import qualified Data.ByteString.Lazy.Char8 as LBS diff --git a/cardano-cli/src/Cardano/CLI/EraBased/Run/CreateTestnetData.hs b/cardano-cli/src/Cardano/CLI/EraBased/Run/CreateTestnetData.hs index 11bf455a6a..9d1bf2efe0 100644 --- a/cardano-cli/src/Cardano/CLI/EraBased/Run/CreateTestnetData.hs +++ b/cardano-cli/src/Cardano/CLI/EraBased/Run/CreateTestnetData.hs @@ -59,11 +59,6 @@ import Ouroboros.Consensus.Shelley.Node (ShelleyGenesisStaking (..)) import Control.DeepSeq (NFData, force) import Control.Monad (forM, forM_, unless, void, when, zipWithM) -import Control.Monad.Except (MonadError (..), runExceptT) -import Control.Monad.IO.Class (MonadIO (..)) -import Control.Monad.Trans.Except (ExceptT) -import Control.Monad.Trans.Except.Extra (firstExceptT, handleIOExceptT, hoistEither, - newExceptT) import qualified Data.Aeson as Aeson import Data.Bifunctor (Bifunctor (..)) import qualified Data.Binary.Get as Bin diff --git a/cardano-cli/src/Cardano/CLI/EraBased/Run/Genesis.hs b/cardano-cli/src/Cardano/CLI/EraBased/Run/Genesis.hs index f7aef6ffb4..6fcd27ba72 100644 --- a/cardano-cli/src/Cardano/CLI/EraBased/Run/Genesis.hs +++ b/cardano-cli/src/Cardano/CLI/EraBased/Run/Genesis.hs @@ -85,11 +85,6 @@ import Ouroboros.Consensus.Shelley.Node (ShelleyGenesisStaking (..)) import Control.DeepSeq (NFData, force) import Control.Monad (forM, forM_, unless, when) -import Control.Monad.Except (MonadError (..)) -import Control.Monad.IO.Class (MonadIO (..)) -import Control.Monad.Trans.Except (ExceptT, throwE, withExceptT) -import Control.Monad.Trans.Except.Extra (firstExceptT, handleIOExceptT, hoistEither, left, - newExceptT) import Data.Aeson hiding (Key) import qualified Data.Aeson as Aeson import Data.Aeson.Encode.Pretty (encodePretty) diff --git a/cardano-cli/src/Cardano/CLI/EraBased/Run/Governance.hs b/cardano-cli/src/Cardano/CLI/EraBased/Run/Governance.hs index 7951f863a7..08d38fafa0 100644 --- a/cardano-cli/src/Cardano/CLI/EraBased/Run/Governance.hs +++ b/cardano-cli/src/Cardano/CLI/EraBased/Run/Governance.hs @@ -32,8 +32,6 @@ import Cardano.CLI.Types.Errors.GovernanceCmdError import qualified Cardano.Ledger.Shelley.API as Shelley import Control.Monad -import Control.Monad.Trans.Except (ExceptT) -import Control.Monad.Trans.Except.Extra import Data.Function import qualified Data.Map.Strict as Map 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 0670f9eedc..3e24e6876a 100644 --- a/cardano-cli/src/Cardano/CLI/EraBased/Run/Governance/Actions.hs +++ b/cardano-cli/src/Cardano/CLI/EraBased/Run/Governance/Actions.hs @@ -26,9 +26,6 @@ import Cardano.CLI.Types.Key import qualified Cardano.Ledger.Alonzo.Scripts as Alonzo import Control.Monad -import Control.Monad.Except (ExceptT) -import Control.Monad.Trans (MonadTrans (..)) -import Control.Monad.Trans.Except.Extra import Data.Function import qualified Data.Map.Strict as Map diff --git a/cardano-cli/src/Cardano/CLI/EraBased/Run/Governance/Committee.hs b/cardano-cli/src/Cardano/CLI/EraBased/Run/Governance/Committee.hs index 91f0616c1e..9295fa78ee 100644 --- a/cardano-cli/src/Cardano/CLI/EraBased/Run/Governance/Committee.hs +++ b/cardano-cli/src/Cardano/CLI/EraBased/Run/Governance/Committee.hs @@ -17,10 +17,6 @@ import Cardano.CLI.Types.Errors.GovernanceCommitteeError import Cardano.CLI.Types.Key import Cardano.CLI.Types.Key.VerificationKey -import Control.Monad.Except (ExceptT) -import Control.Monad.IO.Class (liftIO) -import Control.Monad.Trans (lift) -import Control.Monad.Trans.Except.Extra import Data.ByteString (ByteString) import qualified Data.ByteString.Char8 as BS import Data.Function diff --git a/cardano-cli/src/Cardano/CLI/EraBased/Run/Governance/DRep.hs b/cardano-cli/src/Cardano/CLI/EraBased/Run/Governance/DRep.hs index fb52f8e95e..e4eb1c751f 100644 --- a/cardano-cli/src/Cardano/CLI/EraBased/Run/Governance/DRep.hs +++ b/cardano-cli/src/Cardano/CLI/EraBased/Run/Governance/DRep.hs @@ -27,10 +27,6 @@ import Cardano.CLI.Types.Errors.GovernanceCmdError import Cardano.CLI.Types.Errors.RegistrationError import Cardano.CLI.Types.Key -import Control.Monad.IO.Class -import Control.Monad.Trans.Class -import Control.Monad.Trans.Except -import Control.Monad.Trans.Except.Extra import Data.Function import qualified Data.Text.Encoding as Text diff --git a/cardano-cli/src/Cardano/CLI/EraBased/Run/Governance/GenesisKeyDelegationCertificate.hs b/cardano-cli/src/Cardano/CLI/EraBased/Run/Governance/GenesisKeyDelegationCertificate.hs index 995c1c74d4..794a4cbca5 100644 --- a/cardano-cli/src/Cardano/CLI/EraBased/Run/Governance/GenesisKeyDelegationCertificate.hs +++ b/cardano-cli/src/Cardano/CLI/EraBased/Run/Governance/GenesisKeyDelegationCertificate.hs @@ -12,8 +12,6 @@ import Cardano.Api.Shelley import Cardano.CLI.Types.Errors.GovernanceCmdError import Cardano.CLI.Types.Key -import Control.Monad.Trans.Except (ExceptT) -import Control.Monad.Trans.Except.Extra runGovernanceGenesisKeyDelegationCertificate :: ShelleyToBabbageEra era diff --git a/cardano-cli/src/Cardano/CLI/EraBased/Run/Governance/Hash.hs b/cardano-cli/src/Cardano/CLI/EraBased/Run/Governance/Hash.hs index ca9fd7003a..c87cefc859 100644 --- a/cardano-cli/src/Cardano/CLI/EraBased/Run/Governance/Hash.hs +++ b/cardano-cli/src/Cardano/CLI/EraBased/Run/Governance/Hash.hs @@ -27,8 +27,6 @@ import Cardano.Ledger.Crypto import Cardano.Ledger.SafeHash (extractHash) import qualified Cardano.Ledger.SafeHash as Ledger -import Control.Monad.Trans.Except -import Control.Monad.Trans.Except.Extra import qualified Data.ByteString as BS import Data.Function import qualified Data.Text.Encoding as Text diff --git a/cardano-cli/src/Cardano/CLI/EraBased/Run/Governance/Poll.hs b/cardano-cli/src/Cardano/CLI/EraBased/Run/Governance/Poll.hs index 3ac4e6b683..6e8d57a18d 100644 --- a/cardano-cli/src/Cardano/CLI/EraBased/Run/Governance/Poll.hs +++ b/cardano-cli/src/Cardano/CLI/EraBased/Run/Governance/Poll.hs @@ -19,10 +19,6 @@ import Cardano.CLI.Read import Cardano.CLI.Types.Errors.GovernanceCmdError import Control.Monad -import Control.Monad.IO.Class -import Control.Monad.Trans.Class (lift) -import Control.Monad.Trans.Except (ExceptT) -import Control.Monad.Trans.Except.Extra import qualified Data.ByteString.Char8 as BSC import Data.Function ((&)) import Data.String (fromString) diff --git a/cardano-cli/src/Cardano/CLI/EraBased/Run/Governance/Vote.hs b/cardano-cli/src/Cardano/CLI/EraBased/Run/Governance/Vote.hs index c787472e4a..f3b3403fa5 100644 --- a/cardano-cli/src/Cardano/CLI/EraBased/Run/Governance/Vote.hs +++ b/cardano-cli/src/Cardano/CLI/EraBased/Run/Governance/Vote.hs @@ -22,8 +22,6 @@ import Cardano.CLI.Types.Errors.GovernanceVoteCmdError import Cardano.CLI.Types.Governance import Cardano.CLI.Types.Key -import Control.Monad.Trans.Except -import Control.Monad.Trans.Except.Extra import Data.Aeson.Encode.Pretty import Data.Function import qualified Data.Yaml.Pretty as Yaml diff --git a/cardano-cli/src/Cardano/CLI/EraBased/Run/Key.hs b/cardano-cli/src/Cardano/CLI/EraBased/Run/Key.hs index c8128e071a..6ce750ded6 100644 --- a/cardano-cli/src/Cardano/CLI/EraBased/Run/Key.hs +++ b/cardano-cli/src/Cardano/CLI/EraBased/Run/Key.hs @@ -48,9 +48,6 @@ import qualified Cardano.Ledger.Keys as Shelley import qualified Codec.Binary.Bech32 as Bech32 import qualified Control.Exception as Exception -import Control.Monad.IO.Class (MonadIO (..)) -import Control.Monad.Trans.Except (ExceptT) -import Control.Monad.Trans.Except.Extra (firstExceptT, hoistEither, left, newExceptT) import Data.Bifunctor (Bifunctor (..)) import Data.ByteString (ByteString) import qualified Data.ByteString as BS diff --git a/cardano-cli/src/Cardano/CLI/EraBased/Run/Node.hs b/cardano-cli/src/Cardano/CLI/EraBased/Run/Node.hs index af2240a921..cef97c09f8 100644 --- a/cardano-cli/src/Cardano/CLI/EraBased/Run/Node.hs +++ b/cardano-cli/src/Cardano/CLI/EraBased/Run/Node.hs @@ -22,9 +22,6 @@ import Cardano.CLI.Types.Common import Cardano.CLI.Types.Errors.NodeCmdError import Cardano.CLI.Types.Key -import Control.Monad.IO.Class (MonadIO (..)) -import Control.Monad.Trans.Except (ExceptT) -import Control.Monad.Trans.Except.Extra (firstExceptT, hoistEither, newExceptT) import qualified Data.ByteString.Char8 as BS import Data.String (fromString) import Data.Word (Word64) diff --git a/cardano-cli/src/Cardano/CLI/EraBased/Run/Query.hs b/cardano-cli/src/Cardano/CLI/EraBased/Run/Query.hs index 1477d27462..172b8d1e6d 100644 --- a/cardano-cli/src/Cardano/CLI/EraBased/Run/Query.hs +++ b/cardano-cli/src/Cardano/CLI/EraBased/Run/Query.hs @@ -42,7 +42,6 @@ import qualified Cardano.Api as Api import Cardano.Api.Byron hiding (QueryInShelleyBasedEra (..)) import qualified Cardano.Api.Ledger as L import qualified Cardano.Api.Ledger as Ledger -import Cardano.Api.Pretty import Cardano.Api.Shelley hiding (QueryInShelleyBasedEra (..)) import qualified Cardano.CLI.EraBased.Commands.Query as Cmd @@ -57,9 +56,7 @@ import Cardano.CLI.Types.Key import qualified Cardano.CLI.Types.Output as O import Cardano.Crypto.Hash (hashToBytesAsHex) import qualified Cardano.Crypto.Hash.Blake2b as Blake2b -import qualified Cardano.Ledger.BaseTypes as L import qualified Cardano.Ledger.Core as Core -import qualified Cardano.Ledger.Credential as L import qualified Cardano.Ledger.Crypto as Crypto import Cardano.Ledger.Keys (KeyHash (..), KeyRole (..)) import Cardano.Ledger.SafeHash (SafeHash) @@ -78,11 +75,6 @@ import Ouroboros.Network.Block (Serialised (..)) import qualified Ouroboros.Network.Protocol.LocalStateQuery.Type as Consensus import Control.Monad (forM, forM_, join) -import Control.Monad.IO.Class (MonadIO) -import Control.Monad.IO.Unlift (MonadIO (..)) -import Control.Monad.Trans.Class -import Control.Monad.Trans.Except -import Control.Monad.Trans.Except.Extra import Data.Aeson as Aeson import qualified Data.Aeson as A import Data.Aeson.Encode.Pretty (encodePretty) diff --git a/cardano-cli/src/Cardano/CLI/EraBased/Run/StakeAddress.hs b/cardano-cli/src/Cardano/CLI/EraBased/Run/StakeAddress.hs index ab1d45586a..e3bba2814b 100644 --- a/cardano-cli/src/Cardano/CLI/EraBased/Run/StakeAddress.hs +++ b/cardano-cli/src/Cardano/CLI/EraBased/Run/StakeAddress.hs @@ -31,11 +31,6 @@ import Cardano.CLI.Types.Errors.StakeAddressRegistrationError import Cardano.CLI.Types.Governance import Cardano.CLI.Types.Key -import Control.Monad.IO.Class (MonadIO (..)) -import Control.Monad.Trans (lift) -import Control.Monad.Trans.Except (ExceptT) -import Control.Monad.Trans.Except.Extra (firstExceptT, hoistEither, left, newExceptT, - onLeft) import qualified Data.ByteString.Char8 as BS import Data.Function ((&)) import qualified Data.Text.IO as Text diff --git a/cardano-cli/src/Cardano/CLI/EraBased/Run/StakePool.hs b/cardano-cli/src/Cardano/CLI/EraBased/Run/StakePool.hs index 212a71606e..83da40ad56 100644 --- a/cardano-cli/src/Cardano/CLI/EraBased/Run/StakePool.hs +++ b/cardano-cli/src/Cardano/CLI/EraBased/Run/StakePool.hs @@ -24,11 +24,6 @@ import Cardano.CLI.Types.Common import Cardano.CLI.Types.Errors.StakePoolCmdError import Cardano.CLI.Types.Key (readVerificationKeyOrFile) -import Control.Monad.IO.Class (MonadIO (..)) -import Control.Monad.Trans (lift) -import Control.Monad.Trans.Except (ExceptT) -import Control.Monad.Trans.Except.Extra (firstExceptT, handleIOExceptT, hoistEither, left, - newExceptT, onLeft) import qualified Data.ByteString.Char8 as BS import Data.Function ((&)) diff --git a/cardano-cli/src/Cardano/CLI/EraBased/Run/TextView.hs b/cardano-cli/src/Cardano/CLI/EraBased/Run/TextView.hs index 232d40883c..4c11600d6f 100644 --- a/cardano-cli/src/Cardano/CLI/EraBased/Run/TextView.hs +++ b/cardano-cli/src/Cardano/CLI/EraBased/Run/TextView.hs @@ -13,9 +13,6 @@ import Cardano.CLI.EraBased.Commands.TextView import Cardano.CLI.Helpers (pPrintCBOR) import Cardano.CLI.Types.Errors.TextViewFileError -import Control.Monad.IO.Class (MonadIO (..)) -import Control.Monad.Trans.Except (ExceptT) -import Control.Monad.Trans.Except.Extra (firstExceptT, newExceptT) import qualified Data.ByteString.Lazy.Char8 as LBS runTextViewCmds :: TextViewCmds era -> ExceptT TextViewFileError IO () diff --git a/cardano-cli/src/Cardano/CLI/EraBased/Run/Transaction.hs b/cardano-cli/src/Cardano/CLI/EraBased/Run/Transaction.hs index e53a7b52f5..481801e138 100644 --- a/cardano-cli/src/Cardano/CLI/EraBased/Run/Transaction.hs +++ b/cardano-cli/src/Cardano/CLI/EraBased/Run/Transaction.hs @@ -48,16 +48,10 @@ import Cardano.CLI.Types.Errors.TxCmdError import Cardano.CLI.Types.Errors.TxValidationError import Cardano.CLI.Types.Output (renderScriptCosts) import Cardano.CLI.Types.TxFeature -import qualified Cardano.Ledger.Alonzo.Core as Ledger import qualified Ouroboros.Network.Protocol.LocalStateQuery.Type as Consensus import qualified Ouroboros.Network.Protocol.LocalTxSubmission.Client as Net.Tx import Control.Monad (forM) -import Control.Monad.IO.Class (MonadIO (..)) -import Control.Monad.Trans (MonadTrans (..)) -import Control.Monad.Trans.Except -import Control.Monad.Trans.Except.Extra (firstExceptT, hoistEither, hoistMaybe, left, - newExceptT, onLeft, onNothing) import Data.Aeson.Encode.Pretty (encodePretty) import Data.Bifunctor (Bifunctor (..)) import qualified Data.ByteString.Char8 as BS diff --git a/cardano-cli/src/Cardano/CLI/Helpers.hs b/cardano-cli/src/Cardano/CLI/Helpers.hs index 02473017d6..e082cb5d77 100644 --- a/cardano-cli/src/Cardano/CLI/Helpers.hs +++ b/cardano-cli/src/Cardano/CLI/Helpers.hs @@ -16,7 +16,7 @@ module Cardano.CLI.Helpers , validateCBOR ) where -import Cardano.Api.Pretty +import Cardano.Api import Cardano.Chain.Block (decCBORABlockOrBoundary) import qualified Cardano.Chain.Delegation as Delegation @@ -31,9 +31,6 @@ import Codec.CBOR.Read (DeserialiseFailure, deserialiseFromBytes) import Codec.CBOR.Term (decodeTerm, encodeTerm) import Control.Exception (Exception (..), IOException) import Control.Monad (unless, when) -import Control.Monad.IO.Class (MonadIO (..)) -import Control.Monad.Trans.Except (ExceptT) -import Control.Monad.Trans.Except.Extra (handleIOExceptT, left) import Data.Bifunctor (Bifunctor (..)) import Data.ByteString (ByteString) import qualified Data.ByteString as BS diff --git a/cardano-cli/src/Cardano/CLI/Json/Friendly.hs b/cardano-cli/src/Cardano/CLI/Json/Friendly.hs index 02c92558ed..94d7f7cbce 100644 --- a/cardano-cli/src/Cardano/CLI/Json/Friendly.hs +++ b/cardano-cli/src/Cardano/CLI/Json/Friendly.hs @@ -30,7 +30,6 @@ import qualified Cardano.Ledger.Conway.TxCert as ConwayLedger import qualified Cardano.Ledger.Credential as Shelley import qualified Cardano.Ledger.Shelley.API as Shelley -import Control.Monad.Trans (MonadIO) import Data.Aeson (Value (..), object, toJSON, (.=)) import qualified Data.Aeson as Aeson import qualified Data.Aeson.Encode.Pretty as Aeson diff --git a/cardano-cli/src/Cardano/CLI/Legacy/Options.hs b/cardano-cli/src/Cardano/CLI/Legacy/Options.hs index 3a4f27e427..918193da5d 100644 --- a/cardano-cli/src/Cardano/CLI/Legacy/Options.hs +++ b/cardano-cli/src/Cardano/CLI/Legacy/Options.hs @@ -50,7 +50,7 @@ import Data.Word (Word64) import Options.Applicative hiding (help, str) import qualified Options.Applicative as Opt import qualified Options.Applicative.Help as H -import Prettyprinter (line, pretty) +import Prettyprinter (line) {- HLINT ignore "Use <$>" -} {- HLINT ignore "Move brackets to avoid $" -} diff --git a/cardano-cli/src/Cardano/CLI/Legacy/Run/Address.hs b/cardano-cli/src/Cardano/CLI/Legacy/Run/Address.hs index 0aa940b4ed..bde7d168aa 100644 --- a/cardano-cli/src/Cardano/CLI/Legacy/Run/Address.hs +++ b/cardano-cli/src/Cardano/CLI/Legacy/Run/Address.hs @@ -20,8 +20,6 @@ import Cardano.CLI.Types.Errors.AddressInfoError import Cardano.CLI.Types.Key (PaymentVerifier (..), StakeIdentifier (..), VerificationKeyTextOrFile) -import Control.Monad.Trans.Except (ExceptT) -import Control.Monad.Trans.Except.Extra (firstExceptT) import Data.Function import Data.Text (Text) diff --git a/cardano-cli/src/Cardano/CLI/Legacy/Run/Genesis.hs b/cardano-cli/src/Cardano/CLI/Legacy/Run/Genesis.hs index b69a5e526b..6db149df89 100644 --- a/cardano-cli/src/Cardano/CLI/Legacy/Run/Genesis.hs +++ b/cardano-cli/src/Cardano/CLI/Legacy/Run/Genesis.hs @@ -21,7 +21,6 @@ import Cardano.CLI.Legacy.Commands.Genesis import Cardano.CLI.Types.Common import Cardano.CLI.Types.Errors.GenesisCmdError -import Control.Monad.Trans.Except (ExceptT) runLegacyGenesisCmds :: LegacyGenesisCmds -> ExceptT GenesisCmdError IO () runLegacyGenesisCmds = \case diff --git a/cardano-cli/src/Cardano/CLI/Legacy/Run/Governance.hs b/cardano-cli/src/Cardano/CLI/Legacy/Run/Governance.hs index 9a1c5ea27d..04ac8b92c0 100644 --- a/cardano-cli/src/Cardano/CLI/Legacy/Run/Governance.hs +++ b/cardano-cli/src/Cardano/CLI/Legacy/Run/Governance.hs @@ -23,8 +23,6 @@ import Cardano.CLI.Types.Common import Cardano.CLI.Types.Errors.GovernanceCmdError import Control.Monad -import Control.Monad.Trans.Except (ExceptT) -import Control.Monad.Trans.Except.Extra import Data.Aeson (eitherDecode) import qualified Data.ByteString.Lazy as LB import Data.Function ((&)) diff --git a/cardano-cli/src/Cardano/CLI/Legacy/Run/Key.hs b/cardano-cli/src/Cardano/CLI/Legacy/Run/Key.hs index 80450fa268..42becd300b 100644 --- a/cardano-cli/src/Cardano/CLI/Legacy/Run/Key.hs +++ b/cardano-cli/src/Cardano/CLI/Legacy/Run/Key.hs @@ -13,7 +13,6 @@ import Cardano.CLI.Legacy.Commands.Key import Cardano.CLI.Types.Common import Cardano.CLI.Types.Errors.KeyCmdError -import Control.Monad.Trans.Except (ExceptT) import Data.Text (Text) runLegacyKeyCmds :: () diff --git a/cardano-cli/src/Cardano/CLI/Legacy/Run/StakeAddress.hs b/cardano-cli/src/Cardano/CLI/Legacy/Run/StakeAddress.hs index d9ed1e287f..2e15e69ee2 100644 --- a/cardano-cli/src/Cardano/CLI/Legacy/Run/StakeAddress.hs +++ b/cardano-cli/src/Cardano/CLI/Legacy/Run/StakeAddress.hs @@ -14,7 +14,6 @@ import Cardano.CLI.Types.Common import Cardano.CLI.Types.Errors.StakeAddressCmdError import Cardano.CLI.Types.Key -import Control.Monad.Trans.Except (ExceptT) runLegacyStakeAddressCmds :: () => LegacyStakeAddressCmds diff --git a/cardano-cli/src/Cardano/CLI/Legacy/Run/StakePool.hs b/cardano-cli/src/Cardano/CLI/Legacy/Run/StakePool.hs index 2d0d1b7a1f..622c9595ce 100644 --- a/cardano-cli/src/Cardano/CLI/Legacy/Run/StakePool.hs +++ b/cardano-cli/src/Cardano/CLI/Legacy/Run/StakePool.hs @@ -17,8 +17,6 @@ import Cardano.CLI.Types.Errors.StakePoolCmdError import Cardano.CLI.Types.Key (VerificationKeyOrFile) import qualified Cardano.Ledger.Slot as Shelley -import Control.Monad.Trans.Except (ExceptT) - runLegacyStakePoolCmds :: () => LegacyStakePoolCmds -> ExceptT StakePoolCmdError IO () diff --git a/cardano-cli/src/Cardano/CLI/Legacy/Run/TextView.hs b/cardano-cli/src/Cardano/CLI/Legacy/Run/TextView.hs index 53e367c08e..cc8a1e60b8 100644 --- a/cardano-cli/src/Cardano/CLI/Legacy/Run/TextView.hs +++ b/cardano-cli/src/Cardano/CLI/Legacy/Run/TextView.hs @@ -11,8 +11,6 @@ import Cardano.CLI.EraBased.Run.TextView import Cardano.CLI.Legacy.Commands.TextView import Cardano.CLI.Types.Errors.TextViewFileError -import Control.Monad.Trans.Except (ExceptT) - runLegacyTextViewCmds :: LegacyTextViewCmds -> ExceptT TextViewFileError IO () runLegacyTextViewCmds = \case TextViewInfo fpath mOutfile -> runLegacyTextViewInfoCmd fpath mOutfile diff --git a/cardano-cli/src/Cardano/CLI/Legacy/Run/Transaction.hs b/cardano-cli/src/Cardano/CLI/Legacy/Run/Transaction.hs index 95b2e6e161..3852a816db 100644 --- a/cardano-cli/src/Cardano/CLI/Legacy/Run/Transaction.hs +++ b/cardano-cli/src/Cardano/CLI/Legacy/Run/Transaction.hs @@ -20,9 +20,6 @@ import Cardano.CLI.Types.Errors.TxCmdError import Cardano.CLI.Types.Errors.TxValidationError import Cardano.CLI.Types.Governance -import Control.Monad.Trans.Class -import Control.Monad.Trans.Except -import Control.Monad.Trans.Except.Extra import Data.Function runLegacyTransactionCmds :: LegacyTransactionCmds -> ExceptT TxCmdError IO () diff --git a/cardano-cli/src/Cardano/CLI/Pretty.hs b/cardano-cli/src/Cardano/CLI/Pretty.hs index 1e8e0c9150..08a5d56bb7 100644 --- a/cardano-cli/src/Cardano/CLI/Pretty.hs +++ b/cardano-cli/src/Cardano/CLI/Pretty.hs @@ -4,8 +4,9 @@ module Cardano.CLI.Pretty , hPutLn ) where -import Cardano.Api.Pretty -import qualified Cardano.Api.Pretty as Pretty +import Cardano.Api as Pretty (Ann, Doc, Pretty (..), ShowOf (..), black, blue, cyan, + docToLazyText, docToString, docToText, green, hsep, magenta, prettyException, + pshow, red, vsep, white, yellow, (<+>)) import qualified Control.Concurrent.QSem as IO import Control.Exception (bracket_) diff --git a/cardano-cli/src/Cardano/CLI/Read.hs b/cardano-cli/src/Cardano/CLI/Read.hs index 14a2b57579..db03a4d1b6 100644 --- a/cardano-cli/src/Cardano/CLI/Read.hs +++ b/cardano-cli/src/Cardano/CLI/Read.hs @@ -100,7 +100,6 @@ module Cardano.CLI.Read import Cardano.Api as Api import qualified Cardano.Api.Ledger as L -import Cardano.Api.Pretty import Cardano.Api.Shelley as Api import qualified Cardano.Binary as CBOR @@ -112,23 +111,17 @@ import Cardano.CLI.Types.Governance import Cardano.CLI.Types.Key import qualified Cardano.Crypto.Hash.Class as Crypto import qualified Cardano.Ledger.Alonzo.Scripts as Alonzo -import qualified Cardano.Ledger.BaseTypes as L import qualified Cardano.Ledger.BaseTypes as Ledger import qualified Cardano.Ledger.Credential as Ledger import qualified Cardano.Ledger.Crypto as Crypto import qualified Cardano.Ledger.Crypto as Ledger import qualified Cardano.Ledger.Keys as Ledger -import qualified Cardano.Ledger.SafeHash as L import qualified Cardano.Ledger.SafeHash as Ledger import Prelude import Control.Exception (bracket, displayException) import Control.Monad (forM, unless, when) -import Control.Monad.IO.Class -import Control.Monad.Trans (MonadTrans (..)) -import Control.Monad.Trans.Except -import Control.Monad.Trans.Except.Extra import qualified Data.Aeson as Aeson import Data.Bifunctor import Data.ByteString (ByteString) diff --git a/cardano-cli/src/Cardano/CLI/Run/Ping.hs b/cardano-cli/src/Cardano/CLI/Run/Ping.hs index b466f82ea8..c42d24ee2e 100644 --- a/cardano-cli/src/Cardano/CLI/Run/Ping.hs +++ b/cardano-cli/src/Cardano/CLI/Run/Ping.hs @@ -11,7 +11,7 @@ module Cardano.CLI.Run.Ping , parsePingCmd ) where -import Cardano.Api.Pretty +import Cardano.Api (Doc, pshow) import qualified Cardano.Network.Ping as CNP diff --git a/cardano-cli/src/Cardano/CLI/Types/Common.hs b/cardano-cli/src/Cardano/CLI/Types/Common.hs index 7e3b1dfd0c..99843f6f01 100644 --- a/cardano-cli/src/Cardano/CLI/Types/Common.hs +++ b/cardano-cli/src/Cardano/CLI/Types/Common.hs @@ -86,10 +86,8 @@ import Cardano.Api import qualified Cardano.Api.Ledger as L import qualified Cardano.Chain.Slotting as Byron -import qualified Cardano.Ledger.BaseTypes as L import qualified Cardano.Ledger.Crypto as Crypto import Cardano.Ledger.PoolParams (PoolParams (..)) -import qualified Cardano.Ledger.SafeHash as L import Data.Aeson (FromJSON (..), ToJSON (..), object, pairs, (.=)) import qualified Data.Aeson as Aeson diff --git a/cardano-cli/src/Cardano/CLI/Types/Errors/AddressCmdError.hs b/cardano-cli/src/Cardano/CLI/Types/Errors/AddressCmdError.hs index 06bd8dd80d..0a9b7f23b2 100644 --- a/cardano-cli/src/Cardano/CLI/Types/Errors/AddressCmdError.hs +++ b/cardano-cli/src/Cardano/CLI/Types/Errors/AddressCmdError.hs @@ -17,8 +17,6 @@ import Cardano.CLI.Types.Errors.AddressInfoError import Cardano.CLI.Types.Key (VerificationKeyTextOrFileError (..), renderVerificationKeyTextOrFileError) -import Prettyprinter - data AddressCmdError = AddressCmdAddressInfoError !AddressInfoError | AddressCmdReadKeyFileError !(FileError InputDecodeError) diff --git a/cardano-cli/src/Cardano/CLI/Types/Errors/AddressInfoError.hs b/cardano-cli/src/Cardano/CLI/Types/Errors/AddressInfoError.hs index 7c1001a037..a0b0361929 100644 --- a/cardano-cli/src/Cardano/CLI/Types/Errors/AddressInfoError.hs +++ b/cardano-cli/src/Cardano/CLI/Types/Errors/AddressInfoError.hs @@ -5,7 +5,6 @@ module Cardano.CLI.Types.Errors.AddressInfoError ) where import Cardano.Api -import Cardano.Api.Pretty import Data.Text (Text) diff --git a/cardano-cli/src/Cardano/CLI/Types/Errors/CmdError.hs b/cardano-cli/src/Cardano/CLI/Types/Errors/CmdError.hs index fb9e482040..0099bfb3c7 100644 --- a/cardano-cli/src/Cardano/CLI/Types/Errors/CmdError.hs +++ b/cardano-cli/src/Cardano/CLI/Types/Errors/CmdError.hs @@ -25,7 +25,6 @@ import Cardano.CLI.Types.Errors.TextViewFileError import Cardano.CLI.Types.Errors.TxCmdError import Data.Text (Text) -import Prettyprinter data CmdError = CmdAddressError !AddressCmdError diff --git a/cardano-cli/src/Cardano/CLI/Types/Errors/GenesisCmdError.hs b/cardano-cli/src/Cardano/CLI/Types/Errors/GenesisCmdError.hs index 56e5bd9b6e..944cd40aa9 100644 --- a/cardano-cli/src/Cardano/CLI/Types/Errors/GenesisCmdError.hs +++ b/cardano-cli/src/Cardano/CLI/Types/Errors/GenesisCmdError.hs @@ -6,7 +6,6 @@ module Cardano.CLI.Types.Errors.GenesisCmdError ) where import Cardano.Api -import Cardano.Api.Pretty import Cardano.CLI.Byron.Genesis as Byron import Cardano.CLI.Types.Common diff --git a/cardano-cli/src/Cardano/CLI/Types/Errors/GovernanceActionsError.hs b/cardano-cli/src/Cardano/CLI/Types/Errors/GovernanceActionsError.hs index e7e9ad80ca..a7840ad3a1 100644 --- a/cardano-cli/src/Cardano/CLI/Types/Errors/GovernanceActionsError.hs +++ b/cardano-cli/src/Cardano/CLI/Types/Errors/GovernanceActionsError.hs @@ -5,7 +5,6 @@ module Cardano.CLI.Types.Errors.GovernanceActionsError ) where import Cardano.Api -import Cardano.Api.Pretty import Cardano.CLI.Read diff --git a/cardano-cli/src/Cardano/CLI/Types/Errors/GovernanceCmdError.hs b/cardano-cli/src/Cardano/CLI/Types/Errors/GovernanceCmdError.hs index cce1d5492d..f67cf4daba 100644 --- a/cardano-cli/src/Cardano/CLI/Types/Errors/GovernanceCmdError.hs +++ b/cardano-cli/src/Cardano/CLI/Types/Errors/GovernanceCmdError.hs @@ -5,7 +5,6 @@ module Cardano.CLI.Types.Errors.GovernanceCmdError where import Cardano.Api -import Cardano.Api.Pretty import Cardano.Api.Shelley import Cardano.Binary (DecoderError) diff --git a/cardano-cli/src/Cardano/CLI/Types/Errors/GovernanceHashError.hs b/cardano-cli/src/Cardano/CLI/Types/Errors/GovernanceHashError.hs index b24af608e1..40ca1525e7 100644 --- a/cardano-cli/src/Cardano/CLI/Types/Errors/GovernanceHashError.hs +++ b/cardano-cli/src/Cardano/CLI/Types/Errors/GovernanceHashError.hs @@ -4,7 +4,6 @@ module Cardano.CLI.Types.Errors.GovernanceHashError ) where import Cardano.Api -import Cardano.Api.Pretty import Cardano.CLI.Read (ScriptDecodeError) import Cardano.Prelude (Exception (displayException), IOException) diff --git a/cardano-cli/src/Cardano/CLI/Types/Errors/GovernanceQueryError.hs b/cardano-cli/src/Cardano/CLI/Types/Errors/GovernanceQueryError.hs index 614977a790..4be24f77a4 100644 --- a/cardano-cli/src/Cardano/CLI/Types/Errors/GovernanceQueryError.hs +++ b/cardano-cli/src/Cardano/CLI/Types/Errors/GovernanceQueryError.hs @@ -2,7 +2,6 @@ module Cardano.CLI.Types.Errors.GovernanceQueryError where import Cardano.Api -import Cardano.Api.Pretty import Cardano.Api.Shelley import Ouroboros.Consensus.Cardano.Block (EraMismatch) diff --git a/cardano-cli/src/Cardano/CLI/Types/Errors/GovernanceVoteCmdError.hs b/cardano-cli/src/Cardano/CLI/Types/Errors/GovernanceVoteCmdError.hs index 2cca84fe12..0a3a7e4cba 100644 --- a/cardano-cli/src/Cardano/CLI/Types/Errors/GovernanceVoteCmdError.hs +++ b/cardano-cli/src/Cardano/CLI/Types/Errors/GovernanceVoteCmdError.hs @@ -11,7 +11,6 @@ import Cardano.CLI.Read (VoteError) import qualified Data.Text.Lazy.Builder as TL import qualified Formatting.Buildable as B -import Prettyprinter data GovernanceVoteCmdError = GovernanceVoteCmdReadVerificationKeyError !(FileError InputDecodeError) diff --git a/cardano-cli/src/Cardano/CLI/Types/Errors/ItnKeyConversionError.hs b/cardano-cli/src/Cardano/CLI/Types/Errors/ItnKeyConversionError.hs index 62a8c221ba..852d9c25e2 100644 --- a/cardano-cli/src/Cardano/CLI/Types/Errors/ItnKeyConversionError.hs +++ b/cardano-cli/src/Cardano/CLI/Types/Errors/ItnKeyConversionError.hs @@ -10,7 +10,6 @@ module Cardano.CLI.Types.Errors.ItnKeyConversionError ) where import Cardano.Api -import Cardano.Api.Pretty import Control.Exception (Exception (..), IOException) import Data.ByteString (ByteString) diff --git a/cardano-cli/src/Cardano/CLI/Types/Errors/KeyCmdError.hs b/cardano-cli/src/Cardano/CLI/Types/Errors/KeyCmdError.hs index 3b498c1c9a..a708a80d2f 100644 --- a/cardano-cli/src/Cardano/CLI/Types/Errors/KeyCmdError.hs +++ b/cardano-cli/src/Cardano/CLI/Types/Errors/KeyCmdError.hs @@ -9,7 +9,6 @@ module Cardano.CLI.Types.Errors.KeyCmdError ) where import Cardano.Api -import Cardano.Api.Pretty import qualified Cardano.CLI.Byron.Key as Byron import Cardano.CLI.Types.Errors.CardanoAddressSigningKeyConversionError diff --git a/cardano-cli/src/Cardano/CLI/Types/Errors/NodeCmdError.hs b/cardano-cli/src/Cardano/CLI/Types/Errors/NodeCmdError.hs index 08ac21b308..19680156de 100644 --- a/cardano-cli/src/Cardano/CLI/Types/Errors/NodeCmdError.hs +++ b/cardano-cli/src/Cardano/CLI/Types/Errors/NodeCmdError.hs @@ -7,7 +7,6 @@ module Cardano.CLI.Types.Errors.NodeCmdError ) where import Cardano.Api -import Cardano.Api.Pretty {- HLINT ignore "Reduce duplication" -} diff --git a/cardano-cli/src/Cardano/CLI/Types/Errors/ProtocolParamsError.hs b/cardano-cli/src/Cardano/CLI/Types/Errors/ProtocolParamsError.hs index 91490aef6c..ee62502103 100644 --- a/cardano-cli/src/Cardano/CLI/Types/Errors/ProtocolParamsError.hs +++ b/cardano-cli/src/Cardano/CLI/Types/Errors/ProtocolParamsError.hs @@ -10,7 +10,6 @@ module Cardano.CLI.Types.Errors.ProtocolParamsError ) where import Cardano.Api -import Cardano.Api.Pretty import Data.Text (Text) diff --git a/cardano-cli/src/Cardano/CLI/Types/Errors/QueryCmdError.hs b/cardano-cli/src/Cardano/CLI/Types/Errors/QueryCmdError.hs index 116d96d5ca..edc730886f 100644 --- a/cardano-cli/src/Cardano/CLI/Types/Errors/QueryCmdError.hs +++ b/cardano-cli/src/Cardano/CLI/Types/Errors/QueryCmdError.hs @@ -14,7 +14,6 @@ module Cardano.CLI.Types.Errors.QueryCmdError ) where import Cardano.Api hiding (QueryInShelleyBasedEra (..)) -import Cardano.Api.Pretty import Cardano.Api.Shelley hiding (QueryInShelleyBasedEra (..)) import Cardano.Binary (DecoderError) diff --git a/cardano-cli/src/Cardano/CLI/Types/Errors/QueryCmdLocalStateQueryError.hs b/cardano-cli/src/Cardano/CLI/Types/Errors/QueryCmdLocalStateQueryError.hs index 959e95811b..dbb719b78b 100644 --- a/cardano-cli/src/Cardano/CLI/Types/Errors/QueryCmdLocalStateQueryError.hs +++ b/cardano-cli/src/Cardano/CLI/Types/Errors/QueryCmdLocalStateQueryError.hs @@ -6,8 +6,7 @@ module Cardano.CLI.Types.Errors.QueryCmdLocalStateQueryError , mkEraMismatchError ) where -import Cardano.Api (Error (..)) -import Cardano.Api.Pretty +import Cardano.Api import Cardano.CLI.Types.Errors.NodeEraMismatchError import Ouroboros.Consensus.Cardano.Block (EraMismatch (..)) diff --git a/cardano-cli/src/Cardano/CLI/Types/Errors/StakeAddressDelegationError.hs b/cardano-cli/src/Cardano/CLI/Types/Errors/StakeAddressDelegationError.hs index 56759c6a50..9a4c96e18b 100644 --- a/cardano-cli/src/Cardano/CLI/Types/Errors/StakeAddressDelegationError.hs +++ b/cardano-cli/src/Cardano/CLI/Types/Errors/StakeAddressDelegationError.hs @@ -6,7 +6,6 @@ module Cardano.CLI.Types.Errors.StakeAddressDelegationError ) where import Cardano.Api -import Cardano.Api.Pretty newtype StakeAddressDelegationError = VoteDelegationNotSupported (EraInEon ShelleyToBabbageEra) deriving Show diff --git a/cardano-cli/src/Cardano/CLI/Types/Errors/StakePoolCmdError.hs b/cardano-cli/src/Cardano/CLI/Types/Errors/StakePoolCmdError.hs index b10526f92f..4715ff7e63 100644 --- a/cardano-cli/src/Cardano/CLI/Types/Errors/StakePoolCmdError.hs +++ b/cardano-cli/src/Cardano/CLI/Types/Errors/StakePoolCmdError.hs @@ -10,8 +10,6 @@ module Cardano.CLI.Types.Errors.StakePoolCmdError import Cardano.Api -import Prettyprinter - data StakePoolCmdError = StakePoolCmdReadFileError !(FileError TextEnvelopeError) | StakePoolCmdReadKeyFileError !(FileError InputDecodeError) diff --git a/cardano-cli/src/Cardano/CLI/Types/Errors/TextViewFileError.hs b/cardano-cli/src/Cardano/CLI/Types/Errors/TextViewFileError.hs index caba8b44b0..df558e284e 100644 --- a/cardano-cli/src/Cardano/CLI/Types/Errors/TextViewFileError.hs +++ b/cardano-cli/src/Cardano/CLI/Types/Errors/TextViewFileError.hs @@ -10,8 +10,6 @@ import Cardano.Api import Cardano.CLI.Helpers (HelpersError, renderHelpersError) -import Prettyprinter - data TextViewFileError = TextViewReadFileError (FileError TextEnvelopeError) | TextViewCBORPrettyPrintError !HelpersError diff --git a/cardano-cli/src/Cardano/CLI/Types/Errors/TxCmdError.hs b/cardano-cli/src/Cardano/CLI/Types/Errors/TxCmdError.hs index fbbf73d45a..e267a92674 100644 --- a/cardano-cli/src/Cardano/CLI/Types/Errors/TxCmdError.hs +++ b/cardano-cli/src/Cardano/CLI/Types/Errors/TxCmdError.hs @@ -14,7 +14,6 @@ module Cardano.CLI.Types.Errors.TxCmdError ) where import Cardano.Api -import Cardano.Api.Pretty import Cardano.Api.Shelley import Cardano.CLI.Read diff --git a/cardano-cli/src/Cardano/CLI/Types/Errors/TxValidationError.hs b/cardano-cli/src/Cardano/CLI/Types/Errors/TxValidationError.hs index d414f9c22e..73f0daa3a1 100644 --- a/cardano-cli/src/Cardano/CLI/Types/Errors/TxValidationError.hs +++ b/cardano-cli/src/Cardano/CLI/Types/Errors/TxValidationError.hs @@ -37,7 +37,6 @@ module Cardano.CLI.Types.Errors.TxValidationError import Cardano.Api import qualified Cardano.Api.Ledger as L -import Cardano.Api.Pretty import Cardano.Api.Shelley import Cardano.CLI.Types.Common diff --git a/cardano-cli/src/Cardano/CLI/Types/Key.hs b/cardano-cli/src/Cardano/CLI/Types/Key.hs index 97784b22e5..6ab142bdd8 100644 --- a/cardano-cli/src/Cardano/CLI/Types/Key.hs +++ b/cardano-cli/src/Cardano/CLI/Types/Key.hs @@ -48,15 +48,11 @@ module Cardano.CLI.Types.Key import Cardano.Api import qualified Cardano.Api.Ledger as L -import Cardano.Api.Pretty import Cardano.Api.Shelley import Cardano.CLI.Types.Common import Cardano.CLI.Types.Errors.DelegationError -import Control.Monad.Trans -import Control.Monad.Trans.Except -import Control.Monad.Trans.Except.Extra import Data.Bifunctor (Bifunctor (..)) import qualified Data.ByteString as BS import Data.Function diff --git a/cardano-cli/src/Cardano/CLI/Types/Output.hs b/cardano-cli/src/Cardano/CLI/Types/Output.hs index 5f8033c749..28a6354d19 100644 --- a/cardano-cli/src/Cardano/CLI/Types/Output.hs +++ b/cardano-cli/src/Cardano/CLI/Types/Output.hs @@ -14,7 +14,6 @@ module Cardano.CLI.Types.Output import Cardano.Api import qualified Cardano.Api.Ledger as Ledger -import Cardano.Api.Pretty import Cardano.Api.Shelley import Cardano.CLI.Types.Common diff --git a/cardano-cli/test/cardano-cli-golden/Test/Golden/Byron/SigningKeys.hs b/cardano-cli/test/cardano-cli-golden/Test/Golden/Byron/SigningKeys.hs index b074b77b2c..9dcf4e7c8d 100644 --- a/cardano-cli/test/cardano-cli-golden/Test/Golden/Byron/SigningKeys.hs +++ b/cardano-cli/test/cardano-cli-golden/Test/Golden/Byron/SigningKeys.hs @@ -20,7 +20,6 @@ import qualified Cardano.Crypto.Signing as Crypto import Codec.CBOR.Read (deserialiseFromBytes) import Control.Monad (void) -import Control.Monad.Trans.Except (runExceptT) import qualified Data.ByteString.Lazy as LB import Test.Cardano.CLI.Util diff --git a/cardano-cli/test/cardano-cli-golden/Test/Golden/Byron/Tx.hs b/cardano-cli/test/cardano-cli-golden/Test/Golden/Byron/Tx.hs index 85d1356634..6c9e44e378 100644 --- a/cardano-cli/test/cardano-cli-golden/Test/Golden/Byron/Tx.hs +++ b/cardano-cli/test/cardano-cli-golden/Test/Golden/Byron/Tx.hs @@ -3,14 +3,11 @@ module Test.Golden.Byron.Tx where import Cardano.Api -import Cardano.Api.Pretty import Cardano.Chain.UTxO (ATxAux) import Cardano.CLI.Byron.Tx import Control.Monad (void) -import Control.Monad.IO.Class (liftIO) -import Control.Monad.Trans.Except (runExceptT) import Data.ByteString (ByteString) import Test.Cardano.CLI.Util diff --git a/cardano-cli/test/cardano-cli-golden/Test/Golden/Byron/UpdateProposal.hs b/cardano-cli/test/cardano-cli-golden/Test/Golden/Byron/UpdateProposal.hs index fc53082187..2512ed6d95 100644 --- a/cardano-cli/test/cardano-cli-golden/Test/Golden/Byron/UpdateProposal.hs +++ b/cardano-cli/test/cardano-cli-golden/Test/Golden/Byron/UpdateProposal.hs @@ -2,7 +2,8 @@ module Test.Golden.Byron.UpdateProposal where -import Cardano.Api.Pretty + +import Cardano.Api (docToString) import Cardano.CLI.Byron.UpdateProposal diff --git a/cardano-cli/test/cardano-cli-golden/Test/Golden/Byron/Vote.hs b/cardano-cli/test/cardano-cli-golden/Test/Golden/Byron/Vote.hs index 7330d04062..56de3577bd 100644 --- a/cardano-cli/test/cardano-cli-golden/Test/Golden/Byron/Vote.hs +++ b/cardano-cli/test/cardano-cli-golden/Test/Golden/Byron/Vote.hs @@ -2,7 +2,7 @@ module Test.Golden.Byron.Vote where -import Cardano.Api.Pretty +import Cardano.Api (docToString) import Cardano.CLI.Byron.Vote diff --git a/cardano-cli/test/cardano-cli-golden/Test/Golden/EraBased/Governance/VerifyPoll.hs b/cardano-cli/test/cardano-cli-golden/Test/Golden/EraBased/Governance/VerifyPoll.hs index b171013934..fe05cf77a6 100644 --- a/cardano-cli/test/cardano-cli-golden/Test/Golden/EraBased/Governance/VerifyPoll.hs +++ b/cardano-cli/test/cardano-cli-golden/Test/Golden/EraBased/Governance/VerifyPoll.hs @@ -4,12 +4,10 @@ module Test.Golden.EraBased.Governance.VerifyPoll where import Cardano.Api -import Cardano.Api.Pretty import Cardano.CLI.Types.Key (VerificationKeyOrFile (..), readVerificationKeyOrTextEnvFile) -import Control.Monad.IO.Class (liftIO) import qualified Data.ByteString.Char8 as BSC import Test.Cardano.CLI.Util diff --git a/cardano-cli/test/cardano-cli-golden/files/golden/governance/hash/foo.script.hash b/cardano-cli/test/cardano-cli-golden/files/golden/governance/hash/foo.script.hash index 63b4adee4a..67040a92f1 100644 --- a/cardano-cli/test/cardano-cli-golden/files/golden/governance/hash/foo.script.hash +++ b/cardano-cli/test/cardano-cli-golden/files/golden/governance/hash/foo.script.hash @@ -1 +1 @@ -2a7a40032759083907e43e145b770b467cfc0ddbc3c1266bc2c01b40 \ No newline at end of file +7dde1be4d1a2f617ac343dd7ef0388cf497c19ba8dab653a5b9eb1e2 \ No newline at end of file diff --git a/cardano-cli/test/cardano-cli-test-lib/Test/Cardano/CLI/Util.hs b/cardano-cli/test/cardano-cli-test-lib/Test/Cardano/CLI/Util.hs index 3a472e4c9d..3c68330b81 100644 --- a/cardano-cli/test/cardano-cli-test-lib/Test/Cardano/CLI/Util.hs +++ b/cardano-cli/test/cardano-cli-test-lib/Test/Cardano/CLI/Util.hs @@ -15,14 +15,10 @@ module Test.Cardano.CLI.Util ) where import Cardano.Api -import Cardano.Api.Pretty import Cardano.CLI.Read import Control.Monad.Catch -import Control.Monad.IO.Class (MonadIO (..)) -import Control.Monad.Trans.Class (lift) -import Control.Monad.Trans.Except (runExceptT) import qualified Data.Aeson as Aeson import qualified Data.Aeson.Encode.Pretty as Aeson import qualified Data.Aeson.Key as Aeson diff --git a/cardano-cli/test/cardano-cli-test/Test/Cli/FilePermissions.hs b/cardano-cli/test/cardano-cli-test/Test/Cli/FilePermissions.hs index adf961c3aa..8dc5620628 100644 --- a/cardano-cli/test/cardano-cli-test/Test/Cli/FilePermissions.hs +++ b/cardano-cli/test/cardano-cli-test/Test/Cli/FilePermissions.hs @@ -8,8 +8,6 @@ import Cardano.Api import Cardano.Api.IO (checkVrfFilePermissions) import Control.Monad (void) -import Control.Monad.IO.Class (MonadIO (..)) -import Control.Monad.Trans.Except (runExceptT) import Test.Cardano.CLI.Util (execCardanoCLI) diff --git a/flake.lock b/flake.lock index c605f76475..b5a9c37e5d 100644 --- a/flake.lock +++ b/flake.lock @@ -3,11 +3,11 @@ "CHaP": { "flake": false, "locked": { - "lastModified": 1708424080, - "narHash": "sha256-qeMLKu0E99UycbvXNEjtaVFRaB8NLIEQROwgQcEthFQ=", + "lastModified": 1708528137, + "narHash": "sha256-/1+yfZ2Mq2wxZDUB9Xj4slWNI5almLL9fRFZVrhzX60=", "owner": "input-output-hk", "repo": "cardano-haskell-packages", - "rev": "75c63f31a47341bfc64fb4985da2b93cc70dd1bc", + "rev": "173254b7827969116d132334666f4fe52109d991", "type": "github" }, "original": { @@ -36,17 +36,17 @@ "blst": { "flake": false, "locked": { - "lastModified": 1656163412, - "narHash": "sha256-xero1aTe2v4IhWIJaEDUsVDOfE77dOV5zKeHWntHogY=", + "lastModified": 1691598027, + "narHash": "sha256-oqljy+ZXJAXEB/fJtmB8rlAr4UXM+Z2OkDa20gpILNA=", "owner": "supranational", "repo": "blst", - "rev": "03b5124029979755c752eec45f3c29674b558446", + "rev": "3dd0f804b1819e5d03fb22ca2e6fac105932043a", "type": "github" }, "original": { "owner": "supranational", + "ref": "v0.3.11", "repo": "blst", - "rev": "03b5124029979755c752eec45f3c29674b558446", "type": "github" } }, @@ -210,11 +210,11 @@ "hackage": { "flake": false, "locked": { - "lastModified": 1708388523, - "narHash": "sha256-dlYgCaIk7TWzgCfKobW5pWQdWuQyvRo9n0geXJxGdPM=", + "lastModified": 1708474932, + "narHash": "sha256-kjsvLdd+lwrEhc39SlC4fxJcbVOv5l4Eqzi5t5uoqAI=", "owner": "input-output-hk", "repo": "hackage.nix", - "rev": "f089ddea2b4a66bb1b64469ae9f9a2dcfc373cdb", + "rev": "d6af4586a7a243d21ad2795349059db3609d5da5", "type": "github" }, "original": { @@ -458,11 +458,11 @@ "sodium": "sodium" }, "locked": { - "lastModified": 1702362799, - "narHash": "sha256-cU8cZXNuo5GRwrSvWqdaqoW5tJ2HWwDEOvWwIVPDPmo=", + "lastModified": 1708437078, + "narHash": "sha256-EUsAEG0LmnMmX7Z6JW2LX8/VhpAJ2dXVwVGXWn5LmxQ=", "owner": "input-output-hk", "repo": "iohk-nix", - "rev": "b426fb9e0b109a9d1dd2e1476f9e0bd8bb715142", + "rev": "5ab7134bb21d7bd858dbe1c702761aa7e15eaf88", "type": "github" }, "original": {