finish implementation of 'calcMinimumCoinValue' to also account for m…

…ulti-assets
cardano-foundation · Jan 27, 2021 · 3ff070f · 3ff070f
1 parent 6462940
commit 3ff070f
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/lib/shelley/src/Cardano/Wallet/Shelley/Transaction.hs b/lib/shelley/src/Cardano/Wallet/Shelley/Transaction.hs
@@ -105,6 +105,8 @@ import Cardano.Wallet.Shelley.Compatibility
     , toStakeKeyRegCert
     , toStakePoolDlgCert
     )
+import Cardano.Wallet.Shelley.Compatibility.Ledger
+    ( computeMinimumAdaQuantity )
 import Cardano.Wallet.Transaction
     ( DelegationAction (..)
     , ErrDecodeSignedTx (..)
@@ -379,9 +381,8 @@ _calcMinimumCoinValue
     :: ProtocolParameters
     -> TokenMap
     -> Coin
-_calcMinimumCoinValue pp _assets =
-    -- FIXME: ADP-506 / PR #2461
-    minimumUTxOvalue pp
+_calcMinimumCoinValue pp =
+    computeMinimumAdaQuantity (minimumUTxOvalue pp)
 
 _estimateMaxNumberOfInputs
     :: forall k. TxWitnessTagFor k