From cead4033964fbbf56ccd9e9439ad8be7e5541f91 Mon Sep 17 00:00:00 2001
From: Jonathan Knowles <mail@jonathanknowles.net>
Date: Wed, 15 Nov 2023 09:03:23 +0000
Subject: [PATCH] Silence `hlint` warning for unnecessary `flip` in
 `adjustedPartialTx`.

---
 .../internal/Internal/Cardano/Write/Tx/Balance.hs | 15 ++++++++-------
 1 file changed, 8 insertions(+), 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
index 224b0fe0e28..589defb16b7 100644
--- 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