chore: fix warnings

Plutonomicon · Aug 16, 2023 · 2d1ee4e · 2d1ee4e
1 parent 187fff0
commit 2d1ee4e
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/src/Internal/BalanceTx/BalanceTx.purs b/src/Internal/BalanceTx/BalanceTx.purs
@@ -32,7 +32,6 @@ import Ctl.Internal.BalanceTx.Constraints
   ( _changeAddress
   , _changeDatum
   , _maxChangeOutputTokenQuantity
-  , _nonSpendableInputs
   , _selectionStrategy
   , _srcAddresses
   ) as Constraints
@@ -288,7 +287,7 @@ setTransactionCollateral changeAddr transaction = do
       isSpendable =
         \(TransactionUnspentOutput { input, output }) ->
           not (Set.member input nonSpendableSet) &&
-            not (any (\p -> p input output) nonSpendableInputsPredicates)
+            not (any (\f -> f input output) nonSpendableInputsPredicates)
     pure $ Array.filter isSpendable rawCollateral
   addTxCollateralReturn collateral (addTxCollateral collateral transaction)
     changeAddr
@@ -381,7 +380,7 @@ runBalancer p = do
             spendable :: Boolean
             spendable = not $ or
               [ Set.member oref nonSpendableInputs
-              , any (\p -> p oref output)
+              , any (\f -> f oref output)
                   constraints.nonSpendableInputsPredicates
               , Set.member oref
                   ( p.transaction ^. _transaction <<< _body <<<