Move adjustedPartialTx to where clause and add type signature.

cardano-foundation · Apr 18, 2024 · df19507 · df19507
1 parent 3aadfa3
commit df19507
Showing 1 changed file with 5 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
@@ -531,9 +531,7 @@ balanceTransaction
     s
     partialTx
     = do
-    let adjustedPartialTx = flip (over #tx) partialTx $
-            assignMinimalAdaQuantitiesToOutputsWithoutAda pp
-        balanceWith strategy =
+    let balanceWith strategy =
             balanceTransactionWithSelectionStrategyAndNoZeroAdaAdjustment
                 pp
                 timeTranslation
@@ -549,6 +547,10 @@ balanceTransaction
             then balanceWith SelectionStrategyMinimal
             else throwE e
   where
+    adjustedPartialTx :: PartialTx era
+    adjustedPartialTx = flip (over #tx) partialTx $
+        assignMinimalAdaQuantitiesToOutputsWithoutAda pp
+
     -- Determines whether or not the minimal selection strategy is worth trying.
     -- This depends upon the way in which the optimal selection strategy failed.
     minimalStrategyIsWorthTrying :: ErrBalanceTx era -> Bool