Silence hlint warning for unnecessary flip in adjustedPartialTx.

cardano-foundation · Nov 15, 2023 · cead403 · cead403
1 parent 2ef4c7b
commit cead403
Showing 1 changed file with 8 additions and 7 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
@@ -576,13 +576,14 @@ balanceTransaction
     s
     partialTx
     = do
-    let adjustedPartialTx = flip (over #tx) partialTx
-            ( fromCardanoApiTx
-            . assignMinimalAdaQuantitiesToOutputsWithoutAda
-                (recentEra @era)
-                (pparamsLedger pp)
-            . toCardanoApiTx
-            )
+    let adjustedPartialTx =
+            partialTx & over #tx
+                ( fromCardanoApiTx
+                . assignMinimalAdaQuantitiesToOutputsWithoutAda
+                    (recentEra @era)
+                    (pparamsLedger pp)
+                . toCardanoApiTx
+                )
         balanceWith strategy =
             balanceTransactionWithSelectionStrategyAndNoZeroAdaAdjustment
                 @era @m @changeState