diff --git a/lib/api/src/Cardano/Wallet/Api/Http/Server/Error.hs b/lib/api/src/Cardano/Wallet/Api/Http/Server/Error.hs index 6b305e6b3db..75ba432f469 100644 --- a/lib/api/src/Cardano/Wallet/Api/Http/Server/Error.hs +++ b/lib/api/src/Cardano/Wallet/Api/Http/Server/Error.hs @@ -214,6 +214,9 @@ import qualified Cardano.Wallet.Api.Types.WalletAssets as ApiWalletAssets import qualified Cardano.Wallet.Primitive.Types.TokenBundle as TokenBundle import qualified Cardano.Wallet.Primitive.Types.TokenMap as TokenMap import qualified Cardano.Wallet.Primitive.Types.UTxO as UTxO +import qualified Cardano.Write.Eras as Write + ( IsRecentEra + ) import qualified Data.Aeson as Aeson import qualified Data.ByteString as BS import qualified Data.ByteString.Lazy as BL @@ -222,8 +225,7 @@ import qualified Data.List as L import qualified Data.Text as T import qualified Data.Text.Encoding as T import qualified Internal.Cardano.Write.Tx as Write - ( IsRecentEra - , serializeTx + ( serializeTx ) import qualified Internal.Cardano.Write.Tx as WriteTx import qualified Internal.Cardano.Write.Tx.Balance as Write diff --git a/lib/api/src/Cardano/Wallet/Api/Http/Server/Error/AssignReedemers.hs b/lib/api/src/Cardano/Wallet/Api/Http/Server/Error/AssignReedemers.hs index 1fbdef9f3c9..8820e5761b5 100644 --- a/lib/api/src/Cardano/Wallet/Api/Http/Server/Error/AssignReedemers.hs +++ b/lib/api/src/Cardano/Wallet/Api/Http/Server/Error/AssignReedemers.hs @@ -17,12 +17,12 @@ import Cardano.Wallet.Api.Http.Server.Error.IsServerError import Cardano.Wallet.Api.Types.Error ( ApiErrorInfo (..) ) +import Cardano.Write.Eras + ( IsRecentEra (..) + ) import Fmt ( pretty ) -import Internal.Cardano.Write.Tx - ( IsRecentEra (..) - ) import Internal.Cardano.Write.Tx.Balance ( ErrAssignRedeemers (..) ) diff --git a/lib/api/src/Cardano/Wallet/Api/Http/Shelley/Server.hs b/lib/api/src/Cardano/Wallet/Api/Http/Shelley/Server.hs index aeb96fd08c6..4ff2dd54659 100644 --- a/lib/api/src/Cardano/Wallet/Api/Http/Shelley/Server.hs +++ b/lib/api/src/Cardano/Wallet/Api/Http/Shelley/Server.hs @@ -668,6 +668,9 @@ import Cardano.Wallet.Transaction import Cardano.Wallet.Unsafe ( unsafeRunExceptT ) +import Cardano.Write.Eras + ( AnyRecentEra (..) + ) import Control.Arrow ( second , (&&&) @@ -799,9 +802,6 @@ import Fmt import GHC.Generics ( Generic ) -import Internal.Cardano.Write.Tx - ( AnyRecentEra (..) - ) import Internal.Cardano.Write.Tx.Balance ( PartialTx (..) , Redeemer (..) @@ -882,6 +882,12 @@ import qualified Cardano.Wallet.Primitive.Types.UTxO as UTxO import qualified Cardano.Wallet.Read as Read import qualified Cardano.Wallet.Read.Hash as Hash import qualified Cardano.Wallet.Registry as Registry +import qualified Cardano.Write.Eras as Write + ( IsRecentEra + , RecentEra + , cardanoEra + , cardanoEraFromRecentEra + ) import qualified Control.Concurrent.Concierge as Concierge import qualified Data.ByteArray as BA import qualified Data.ByteString as BS @@ -893,14 +899,10 @@ import qualified Data.Set as Set import qualified Data.Text as T import qualified Internal.Cardano.Write.Tx as Write ( Datum (DatumHash, NoDatum) - , IsRecentEra , PParamsInAnyRecentEra (PParamsInAnyRecentEra) - , RecentEra , Tx , TxIn , TxOutInRecentEra (TxOutInRecentEra) - , cardanoEra - , cardanoEraFromRecentEra , fromCardanoApiTx , getFeePerByte , pattern PolicyId diff --git a/lib/api/src/Cardano/Wallet/Api/Types/Era.hs b/lib/api/src/Cardano/Wallet/Api/Types/Era.hs index f7c35c9457c..ca9830dea0c 100644 --- a/lib/api/src/Cardano/Wallet/Api/Types/Era.hs +++ b/lib/api/src/Cardano/Wallet/Api/Types/Era.hs @@ -69,12 +69,12 @@ import Text.Show ) import qualified Cardano.Wallet.Read as Read -import qualified Data.Aeson as Aeson -import qualified Data.Set as Set -import qualified Internal.Cardano.Write.Tx as Write +import qualified Cardano.Write.Eras as Write ( allRecentEras , toAnyCardanoEra ) +import qualified Data.Aeson as Aeson +import qualified Data.Set as Set data ApiEra = ApiByron diff --git a/lib/balance-tx/cardano-balance-tx.cabal b/lib/balance-tx/cardano-balance-tx.cabal index 45cfe4583d1..c23edfa841a 100644 --- a/lib/balance-tx/cardano-balance-tx.cabal +++ b/lib/balance-tx/cardano-balance-tx.cabal @@ -40,6 +40,7 @@ library build-depends: , cardano-balance-tx:internal exposed-modules: + Cardano.Write.Eras Cardano.Write.Tx library internal diff --git a/lib/balance-tx/lib/main/Cardano/Write/Eras.hs b/lib/balance-tx/lib/main/Cardano/Write/Eras.hs new file mode 100644 index 00000000000..aedba8fad42 --- /dev/null +++ b/lib/balance-tx/lib/main/Cardano/Write/Eras.hs @@ -0,0 +1,55 @@ +-- | +-- Copyright: © 2024 Cardano Foundation +-- License: Apache-2.0 +-- +module Cardano.Write.Eras + ( + -- * Eras + BabbageEra + , ConwayEra + + -- ** RecentEra + , RecentEra (..) + , IsRecentEra (..) + , CardanoApiEra + , toRecentEra + , fromRecentEra + , MaybeInRecentEra (..) + , LatestLedgerEra + , RecentEraConstraints + , allRecentEras + + -- ** Existential wrapper + , AnyRecentEra (..) + , toAnyCardanoEra + , fromAnyCardanoEra + + -- ** Helpers for cardano-api compatibility + , cardanoEra + , shelleyBasedEra + , ShelleyLedgerEra + , cardanoEraFromRecentEra + , shelleyBasedEraFromRecentEra + ) where + +import Internal.Cardano.Write.Eras + ( AnyRecentEra (..) + , BabbageEra + , CardanoApiEra + , ConwayEra + , IsRecentEra (..) + , LatestLedgerEra + , MaybeInRecentEra (..) + , RecentEra (..) + , RecentEraConstraints + , ShelleyLedgerEra + , allRecentEras + , cardanoEra + , cardanoEraFromRecentEra + , fromAnyCardanoEra + , fromRecentEra + , shelleyBasedEra + , shelleyBasedEraFromRecentEra + , toAnyCardanoEra + , toRecentEra + ) diff --git a/lib/benchmarks/exe/api-bench.hs b/lib/benchmarks/exe/api-bench.hs index 5952d4fb5c7..5360e95ddef 100644 --- a/lib/benchmarks/exe/api-bench.hs +++ b/lib/benchmarks/exe/api-bench.hs @@ -206,7 +206,7 @@ import Data.Functor ) import qualified Data.Map.Strict as Map import qualified Data.Text as T -import qualified Internal.Cardano.Write.Tx as Write +import qualified Cardano.Write.Eras as Write ( MaybeInRecentEra (InRecentEraBabbage) ) import qualified System.Environment as Sys diff --git a/lib/network-layer/cardano-wallet-network-layer.cabal b/lib/network-layer/cardano-wallet-network-layer.cabal index f52cf48d6e3..3904edb7851 100644 --- a/lib/network-layer/cardano-wallet-network-layer.cabal +++ b/lib/network-layer/cardano-wallet-network-layer.cabal @@ -70,6 +70,7 @@ library , base , bytestring , cardano-api + , cardano-balance-tx , cardano-balance-tx:internal , cardano-binary , cardano-crypto-class diff --git a/lib/network-layer/src/Cardano/Wallet/Network.hs b/lib/network-layer/src/Cardano/Wallet/Network.hs index 74ba33f7169..1f3bfde2c0d 100644 --- a/lib/network-layer/src/Cardano/Wallet/Network.hs +++ b/lib/network-layer/src/Cardano/Wallet/Network.hs @@ -72,6 +72,9 @@ import Cardano.Wallet.Primitive.Types.StakePoolSummary import Cardano.Wallet.Primitive.Types.Tx.SealedTx ( SealedTx ) +import Cardano.Write.Eras + ( MaybeInRecentEra + ) import Control.Monad.Trans.Except ( ExceptT (..) ) @@ -96,9 +99,6 @@ import Data.Text.Class import GHC.Generics ( Generic ) -import Internal.Cardano.Write.Tx - ( MaybeInRecentEra - ) import qualified Cardano.Wallet.Read as Read import qualified Data.Text as T diff --git a/lib/network-layer/src/Cardano/Wallet/Network/Implementation.hs b/lib/network-layer/src/Cardano/Wallet/Network/Implementation.hs index 3dc230d117a..602e0aeed15 100644 --- a/lib/network-layer/src/Cardano/Wallet/Network/Implementation.hs +++ b/lib/network-layer/src/Cardano/Wallet/Network/Implementation.hs @@ -138,6 +138,9 @@ import Cardano.Wallet.Primitive.Types.StakePoolSummary import Cardano.Wallet.Primitive.Types.Tx ( SealedTx (..) ) +import Cardano.Write.Eras + ( MaybeInRecentEra (..) + ) import Control.Concurrent.Class.MonadSTM ( MonadSTM , STM @@ -264,9 +267,6 @@ import Fmt import GHC.Stack ( HasCallStack ) -import Internal.Cardano.Write.Tx - ( MaybeInRecentEra (..) - ) import Network.Mux ( MuxError (..) , MuxErrorType (..) diff --git a/lib/network-layer/src/Cardano/Wallet/Network/LocalStateQuery/PParams.hs b/lib/network-layer/src/Cardano/Wallet/Network/LocalStateQuery/PParams.hs index 73af1109b77..b23cd5a1bac 100644 --- a/lib/network-layer/src/Cardano/Wallet/Network/LocalStateQuery/PParams.hs +++ b/lib/network-layer/src/Cardano/Wallet/Network/LocalStateQuery/PParams.hs @@ -44,7 +44,7 @@ import Cardano.Wallet.Primitive.Types.ProtocolParameters import Cardano.Wallet.Primitive.Types.SlottingParameters ( SlottingParameters ) -import Internal.Cardano.Write.Tx +import Cardano.Write.Eras ( MaybeInRecentEra (..) ) import Ouroboros.Consensus.Cardano diff --git a/lib/network-layer/src/Cardano/Wallet/Network/LocalStateQuery/UTxO.hs b/lib/network-layer/src/Cardano/Wallet/Network/LocalStateQuery/UTxO.hs index 9ecee629ab9..cccac87f4b8 100644 --- a/lib/network-layer/src/Cardano/Wallet/Network/LocalStateQuery/UTxO.hs +++ b/lib/network-layer/src/Cardano/Wallet/Network/LocalStateQuery/UTxO.hs @@ -23,12 +23,12 @@ import Cardano.Wallet.Network.Implementation.Ouroboros import Cardano.Wallet.Network.LocalStateQuery.Extra ( onAnyEra ) +import Cardano.Write.Eras + ( MaybeInRecentEra (..) + ) import Data.Set ( Set ) -import Internal.Cardano.Write.Tx - ( MaybeInRecentEra (..) - ) import Ouroboros.Consensus.Cardano ( CardanoBlock ) diff --git a/lib/unit/cardano-wallet-unit.cabal b/lib/unit/cardano-wallet-unit.cabal index 7747451a509..ca5478fe8e1 100644 --- a/lib/unit/cardano-wallet-unit.cabal +++ b/lib/unit/cardano-wallet-unit.cabal @@ -45,6 +45,7 @@ library test-common , base , bytestring , cardano-api + , cardano-balance-tx , cardano-balance-tx:internal , cardano-wallet , cardano-wallet-network-layer diff --git a/lib/unit/test-common/Cardano/Wallet/DummyTarget/Primitive/Types.hs b/lib/unit/test-common/Cardano/Wallet/DummyTarget/Primitive/Types.hs index e99a2addacb..a04b9b22c30 100644 --- a/lib/unit/test-common/Cardano/Wallet/DummyTarget/Primitive/Types.hs +++ b/lib/unit/test-common/Cardano/Wallet/DummyTarget/Primitive/Types.hs @@ -91,6 +91,7 @@ import Internal.Cardano.Write.Tx.Gen ( mockPParams ) +import qualified Cardano.Write.Eras as Write import qualified Data.ByteString.Char8 as B8 import qualified Internal.Cardano.Write.Tx as Write diff --git a/lib/unit/test/unit/Cardano/Wallet/DelegationSpec.hs b/lib/unit/test/unit/Cardano/Wallet/DelegationSpec.hs index 6c1b69a5463..befc29f51e1 100644 --- a/lib/unit/test/unit/Cardano/Wallet/DelegationSpec.hs +++ b/lib/unit/test/unit/Cardano/Wallet/DelegationSpec.hs @@ -109,9 +109,9 @@ import Test.QuickCheck.Arbitrary.Generic import qualified Cardano.Wallet as W import qualified Cardano.Wallet.Delegation as WD import qualified Cardano.Wallet.Primitive.Types.Coin as Coin +import qualified Cardano.Write.Eras as Write import qualified Data.ByteString as BS import qualified Data.Set as Set -import qualified Internal.Cardano.Write.Tx as Write spec :: Spec spec = describe "Cardano.Wallet.DelegationSpec" $ do diff --git a/lib/unit/test/unit/Cardano/Wallet/Shelley/TransactionSpec.hs b/lib/unit/test/unit/Cardano/Wallet/Shelley/TransactionSpec.hs index b5ba2a19755..62c84eba669 100644 --- a/lib/unit/test/unit/Cardano/Wallet/Shelley/TransactionSpec.hs +++ b/lib/unit/test/unit/Cardano/Wallet/Shelley/TransactionSpec.hs @@ -191,6 +191,14 @@ import Cardano.Wallet.Transaction import Cardano.Wallet.Unsafe ( unsafeFromHex ) +import Cardano.Write.Eras + ( AnyRecentEra (..) + , CardanoApiEra + , IsRecentEra + , RecentEra (..) + , ShelleyLedgerEra + , cardanoEraFromRecentEra + ) import Cardano.Write.Tx ( ErrBalanceTx (..) , ErrBalanceTxUnableToCreateChangeError (..) @@ -267,14 +275,6 @@ import Fmt , (+||) , (||+) ) -import Internal.Cardano.Write.Tx - ( AnyRecentEra (..) - , CardanoApiEra - , IsRecentEra - , RecentEra (..) - , ShelleyLedgerEra - , cardanoEraFromRecentEra - ) import Internal.Cardano.Write.Tx.Gen ( mockPParams ) @@ -352,6 +352,14 @@ import qualified Cardano.Wallet.Address.Derivation.Shelley as Shelley import qualified Cardano.Wallet.Primitive.Types.Coin as Coin import qualified Cardano.Wallet.Primitive.Types.TokenBundle as TokenBundle import qualified Cardano.Wallet.Primitive.Types.TokenMap as TokenMap +import qualified Cardano.Write.Eras as Write + ( BabbageEra + , CardanoApiEra + , IsRecentEra + , RecentEra (RecentEraBabbage, RecentEraConway) + , cardanoEraFromRecentEra + , shelleyBasedEraFromRecentEra + ) import qualified Data.ByteArray as BA import qualified Data.ByteString as BS import qualified Data.ByteString.Char8 as B8 @@ -361,14 +369,6 @@ import qualified Data.Map.Strict as Map import qualified Data.Set as Set import qualified Data.Text as T import qualified Data.Text.Encoding as T -import qualified Internal.Cardano.Write.Tx as Write - ( BabbageEra - , CardanoApiEra - , IsRecentEra - , RecentEra (RecentEraBabbage, RecentEraConway) - , cardanoEraFromRecentEra - , shelleyBasedEraFromRecentEra - ) spec :: Spec spec = describe "TransactionSpec" $ do diff --git a/lib/unit/test/unit/Cardano/WalletSpec.hs b/lib/unit/test/unit/Cardano/WalletSpec.hs index de9a1da34cb..ac0901073c0 100644 --- a/lib/unit/test/unit/Cardano/WalletSpec.hs +++ b/lib/unit/test/unit/Cardano/WalletSpec.hs @@ -412,6 +412,10 @@ import qualified Cardano.Wallet.Read as Read import qualified Cardano.Wallet.Read.Hash as Hash import qualified Cardano.Wallet.Submissions.Submissions as Smbs import qualified Cardano.Wallet.Submissions.TxStatus as Sbms +import qualified Cardano.Write.Eras as Write + ( AnyRecentEra (AnyRecentEra) + , RecentEra (RecentEraBabbage, RecentEraConway) + ) import qualified Data.ByteArray as BA import qualified Data.ByteString as BS import qualified Data.ByteString.Char8 as B8 @@ -420,10 +424,6 @@ import qualified Data.List as L import qualified Data.List.NonEmpty as NE import qualified Data.Map.Strict as Map import qualified Data.Text as T -import qualified Internal.Cardano.Write.Tx as Write - ( AnyRecentEra (AnyRecentEra) - , RecentEra (RecentEraBabbage, RecentEraConway) - ) spec :: Spec spec = describe "Cardano.WalletSpec" $ do diff --git a/lib/wallet/src/Cardano/Wallet.hs b/lib/wallet/src/Cardano/Wallet.hs index aa4d704fc83..7d48babc2b2 100644 --- a/lib/wallet/src/Cardano/Wallet.hs +++ b/lib/wallet/src/Cardano/Wallet.hs @@ -628,6 +628,10 @@ import Cardano.Wallet.Transaction import Cardano.Wallet.Transaction.Built ( BuiltTx (..) ) +import Cardano.Write.Eras + ( MaybeInRecentEra (..) + , recentEra + ) import Cardano.Write.Tx ( ErrBalanceTx (..) , ErrBalanceTxUnableToCreateChangeError (..) @@ -803,9 +807,7 @@ import GHC.TypeNats ( Nat ) import Internal.Cardano.Write.Tx - ( MaybeInRecentEra (..) - , recentEra - , toRecentEraGADT + ( toRecentEraGADT ) import Internal.Cardano.Write.Tx.Balance ( ChangeAddressGen (..) @@ -865,6 +867,14 @@ import qualified Cardano.Wallet.Primitive.Types.Tx.TxOut as TxOut import qualified Cardano.Wallet.Primitive.Types.UTxO as UTxO import qualified Cardano.Wallet.Primitive.Types.UTxOStatistics as UTxOStatistics import qualified Cardano.Wallet.Read as Read +import qualified Cardano.Write.Eras as Write + ( AnyRecentEra + , CardanoApiEra + , IsRecentEra (..) + , MaybeInRecentEra (..) + , RecentEra (..) + , cardanoEraFromRecentEra + ) import qualified Data.ByteArray as BA import qualified Data.Delta.Update as Delta import qualified Data.Foldable as F @@ -874,18 +884,12 @@ import qualified Data.Set as Set import qualified Data.Text as T import qualified Data.Vector as V import qualified Internal.Cardano.Write.Tx as Write - ( AnyRecentEra - , CardanoApiEra - , ErrInvalidTxOutInEra + ( ErrInvalidTxOutInEra , FeePerByte - , IsRecentEra (..) - , MaybeInRecentEra (..) , PParams , PParamsInAnyRecentEra (PParamsInAnyRecentEra) - , RecentEra (..) , Tx , UTxO (UTxO) - , cardanoEraFromRecentEra , feeOfBytes , forceUTxOToEra , fromCardanoApiTx diff --git a/lib/wallet/src/Cardano/Wallet/Delegation.hs b/lib/wallet/src/Cardano/Wallet/Delegation.hs index 96e7b38f062..8c3addf7066 100644 --- a/lib/wallet/src/Cardano/Wallet/Delegation.hs +++ b/lib/wallet/src/Cardano/Wallet/Delegation.hs @@ -71,8 +71,8 @@ import qualified Cardano.Wallet.DB.Store.Delegations.Layer as Dlgs import qualified Cardano.Wallet.DB.WalletState as WalletState import qualified Cardano.Wallet.Primitive.Types as W import qualified Cardano.Wallet.Transaction as Tx +import qualified Cardano.Write.Eras as Write import qualified Data.Set as Set -import qualified Internal.Cardano.Write.Tx as Write -- | The data type that represents client's delegation request. -- Stake key registration is made implicit by design: diff --git a/lib/wallet/src/Cardano/Wallet/Shelley/Transaction.hs b/lib/wallet/src/Cardano/Wallet/Shelley/Transaction.hs index cba92b44c95..cd3d457b5ee 100644 --- a/lib/wallet/src/Cardano/Wallet/Shelley/Transaction.hs +++ b/lib/wallet/src/Cardano/Wallet/Shelley/Transaction.hs @@ -196,6 +196,10 @@ import Cardano.Wallet.Transaction.Voting import Cardano.Wallet.Util ( HasCallStack ) +import Cardano.Write.Eras + ( CardanoApiEra + , RecentEra (..) + ) import Control.Arrow ( left , second @@ -237,10 +241,6 @@ import Data.Word ( Word64 , Word8 ) -import Internal.Cardano.Write.Tx - ( CardanoApiEra - , RecentEra (..) - ) import Internal.Cardano.Write.Tx.SizeEstimation ( TxSkeleton (..) , TxWitnessTag (..) @@ -268,6 +268,13 @@ import qualified Cardano.Wallet.Primitive.Ledger.Convert as Convert import qualified Cardano.Wallet.Primitive.Ledger.Shelley as Compatibility import qualified Cardano.Wallet.Primitive.Types.AssetId as AssetId import qualified Cardano.Wallet.Primitive.Types.TokenMap as TokenMap +import qualified Cardano.Write.Eras as Write + ( CardanoApiEra + , IsRecentEra (recentEra) + , RecentEra (RecentEraBabbage, RecentEraConway) + , shelleyBasedEra + , shelleyBasedEraFromRecentEra + ) import qualified Data.ByteString as BS import qualified Data.Foldable as F import qualified Data.List as L @@ -275,12 +282,9 @@ import qualified Data.Map as Map import qualified Data.Set as Set import qualified Data.Text as T import qualified Internal.Cardano.Write.Tx as Write - ( CardanoApiEra - , Coin + ( Coin , FeePerByte - , IsRecentEra (recentEra) , PParams - , RecentEra (RecentEraBabbage, RecentEraConway) , Tx , TxOut , computeMinimumCoinForTxOut @@ -288,8 +292,6 @@ import qualified Internal.Cardano.Write.Tx as Write , fromCardanoApiTx , getFeePerByte , isBelowMinimumCoinForTxOut - , shelleyBasedEra - , shelleyBasedEraFromRecentEra , toCardanoApiTx ) import qualified Internal.Cardano.Write.Tx.Sign as Write diff --git a/lib/wallet/src/Cardano/Wallet/Transaction/Delegation.hs b/lib/wallet/src/Cardano/Wallet/Transaction/Delegation.hs index cacff74f486..eb515c57812 100644 --- a/lib/wallet/src/Cardano/Wallet/Transaction/Delegation.hs +++ b/lib/wallet/src/Cardano/Wallet/Transaction/Delegation.hs @@ -40,16 +40,16 @@ import Cardano.Wallet.Primitive.Types.Pool import Cardano.Wallet.Transaction ( DelegationAction (..) ) +import Cardano.Write.Eras + ( CardanoApiEra + , RecentEra (..) + ) import Cryptography.Hash.Blake ( blake2b224 ) import Data.ByteString.Short ( toShort ) -import Internal.Cardano.Write.Tx - ( CardanoApiEra - , RecentEra (RecentEraBabbage, RecentEraConway) - ) import qualified Cardano.Api as Cardano import qualified Cardano.Api.ReexposeLedger as Ledger diff --git a/lib/wallet/src/Cardano/Wallet/Transaction/Voting.hs b/lib/wallet/src/Cardano/Wallet/Transaction/Voting.hs index 00874f9613d..2993a88aa59 100644 --- a/lib/wallet/src/Cardano/Wallet/Transaction/Voting.hs +++ b/lib/wallet/src/Cardano/Wallet/Transaction/Voting.hs @@ -37,16 +37,16 @@ import Cardano.Wallet.Primitive.Types.Coin import Cardano.Wallet.Transaction ( VotingAction (..) ) +import Cardano.Write.Eras + ( CardanoApiEra + , RecentEra (..) + ) import Cryptography.Hash.Blake ( blake2b224 ) import Data.ByteString.Short ( toShort ) -import Internal.Cardano.Write.Tx - ( CardanoApiEra - , RecentEra (RecentEraBabbage, RecentEraConway) - ) import qualified Cardano.Api as Cardano import qualified Cardano.Api.ReexposeLedger as Ledger