From 4d895f281c9859b971b08db9722d2ec80718cc17 Mon Sep 17 00:00:00 2001 From: Bromel777 Date: Mon, 12 Jun 2023 22:04:33 +0200 Subject: [PATCH] Fix incorrect balancing check --- submit-api/src/SubmitAPI/Internal/Balancing.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/submit-api/src/SubmitAPI/Internal/Balancing.hs b/submit-api/src/SubmitAPI/Internal/Balancing.hs index c294b8ee..4cc0696a 100644 --- a/submit-api/src/SubmitAPI/Internal/Balancing.hs +++ b/submit-api/src/SubmitAPI/Internal/Balancing.hs @@ -270,10 +270,11 @@ makeTransactionBodyAutoBalance eraInMode systemstart history pparams :: TxOut CtxTx era -> ProtocolParameters -> Either TxBodyErrorAutoBalance () - checkMinUTxOValue txout@(TxOut _ v _ _) pparams' = do + checkMinUTxOValue txout@(TxOut addr v _ _) pparams' = do minUTxO <- first TxBodyErrorMinUTxOMissingPParams $ calculateMinimumUTxO era txout pparams' - if txOutValueToLovelace v >= selectLovelace minUTxO + let chargeBoxWillBeMerged = addr == changeaddr + if txOutValueToLovelace v >= selectLovelace minUTxO || chargeBoxWillBeMerged then Right () else Left TxBodyErrorMissingParamMinUTxO --todo fix: TxOutInAnyEra. Current err is incorrect