Use isDust to simplify noDust.

IntersectMBO · May 12, 2020 · a842a82 · a842a82
1 parent 0d9b066
commit a842a82
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 1 deletion.
diff --git a/src/library/Cardano/CoinSelection/Algorithm/Migration.hs b/src/library/Cardano/CoinSelection/Algorithm/Migration.hs
@@ -42,6 +42,7 @@ import Cardano.CoinSelection.Fee
     , FeeBalancingPolicy (..)
     , FeeEstimator (..)
     , FeeOptions (..)
+    , isDust
     )
 import Control.Monad.Trans.State
     ( State, evalState, get, put )
@@ -124,7 +125,7 @@ selectCoins options (BatchSize batchSize) utxo =
         threshold = unDustThreshold dustThreshold
         noDust :: Coin -> Maybe Coin
         noDust c
-            | c <= threshold = Nothing
+            | isDust dustThreshold c = Nothing
             | otherwise = Just c
 
     -- | Attempt to balance the coin selection by reducing or increasing the

diff --git a/src/library/Cardano/CoinSelection/Fee.hs b/src/library/Cardano/CoinSelection/Fee.hs
@@ -31,6 +31,7 @@ module Cardano.CoinSelection.Fee
 
       -- * Dust Processing
     , DustThreshold (..)
+    , isDust
     , coalesceDust
 
       -- # Internal Functions