Rename inner helper function to balanceTransactionInner.

cardano-foundation · Apr 18, 2024 · f1fa5da · f1fa5da
1 parent a4b744a
commit f1fa5da
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/lib/balance-tx/lib/internal/Internal/Cardano/Write/Tx/Balance.hs b/lib/balance-tx/lib/internal/Internal/Cardano/Write/Tx/Balance.hs
@@ -545,7 +545,7 @@ balanceTransaction
 
     let adjustedPartialTx = assignMinimalAdaQuantitiesToOutputsWithoutAda pp tx
         balanceWith strategy =
-            balanceTransactionWithSelectionStrategyAndNoZeroAdaAdjustment
+            balanceTransactionInner
                 pp
                 timeTranslation
                 utxoAssumptions
@@ -707,7 +707,7 @@ assignMinimalAdaQuantitiesToOutputsWithoutAda pp =
         if c == mempty then computeMinimumCoinForTxOut pp out else c
 
 -- | Internal helper to 'balanceTransaction'
-balanceTransactionWithSelectionStrategyAndNoZeroAdaAdjustment
+balanceTransactionInner
     :: forall era m changeState.
         ( MonadRandom m
         , IsRecentEra era
@@ -727,7 +727,7 @@ balanceTransactionWithSelectionStrategyAndNoZeroAdaAdjustment
     -> TimelockKeyWitnessCounts
     -> Tx era
     -> ExceptT (ErrBalanceTx era) m (Tx era, changeState)
-balanceTransactionWithSelectionStrategyAndNoZeroAdaAdjustment
+balanceTransactionInner
     pp
     timeTranslation
     utxoAssumptions