Try #2552:

cardano-foundation · Mar 5, 2021 · d6a369f · d6a369f
2 parents f4d697a + 7d1a632
commit d6a369f
Show file tree

Hide file tree

Showing 19 changed files with 1,257 additions and 566 deletions.
diff --git a/lib/core/cardano-wallet-core.cabal b/lib/core/cardano-wallet-core.cabal
@@ -243,6 +243,7 @@ test-suite unit
     , cardano-addresses
     , cardano-api
     , cardano-crypto
+    , cardano-numeric
     , cardano-wallet-core
     , cardano-wallet-launcher
     , cardano-wallet-test-utils

diff --git a/lib/core/src/Cardano/Wallet.hs b/lib/core/src/Cardano/Wallet.hs
@@ -313,6 +313,7 @@ import Cardano.Wallet.Primitive.Types.TokenBundle
 import Cardano.Wallet.Primitive.Types.Tx
     ( Direction (..)
     , SealedTx (..)
+    , TokenBundleSizeAssessment (..)
     , TransactionInfo (..)
     , Tx
     , TxChange (..)
@@ -1403,6 +1404,7 @@ selectAssets ctx (utxo, cp, pending) tx outs transform = do
     sel <- performSelection
         (calcMinimumCoinValue tl pp)
         (calcMinimumCost tl pp tx)
+        (assessTokenBundleSize tl)
         (initSelectionCriteria tl pp tx utxo outs)
     liftIO $ traceWith tr $ MsgSelectionDone sel
     withExceptT ErrSelectAssetsSelectionError $ except $