From 2d1ee4ee3cab42c86e9d108e7c4989eff5dcbc2d Mon Sep 17 00:00:00 2001
From: Dzmitry Shuysky <errfrom@yandex.ru>
Date: Wed, 16 Aug 2023 15:04:25 +0200
Subject: [PATCH] chore: fix warnings

---
 src/Internal/BalanceTx/BalanceTx.purs | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/src/Internal/BalanceTx/BalanceTx.purs b/src/Internal/BalanceTx/BalanceTx.purs
index 202af75a8..cd32f07fd 100644
--- 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 <<<