Make restrictResolution more concise.

cardano-foundation · Apr 22, 2024 · 081595c · 081595c
1 parent 6840079
commit 081595c
Showing 1 changed file with 3 additions and 10 deletions.
diff --git a/lib/balance-tx/test/spec/Internal/Cardano/Write/Tx/BalanceSpec.hs b/lib/balance-tx/test/spec/Internal/Cardano/Write/Tx/BalanceSpec.hs
@@ -2301,16 +2301,9 @@ paymentPartialTx txouts =
 -- shrinking the CBOR.
 --
 -- NOTE: Perhaps ideally 'PartialTx' would handle this automatically.
-restrictResolution
-    :: forall era. IsRecentEra era
-    => PartialTx era
-    -> PartialTx era
-restrictResolution partialTx@PartialTx {tx, extraUTxO} =
-    partialTx
-        { extraUTxO
-            = UTxO
-            $ unUTxO extraUTxO `Map.restrictKeys` txIns
-        }
+restrictResolution :: IsRecentEra era => PartialTx era -> PartialTx era
+restrictResolution partialTx@PartialTx {tx, extraUTxO} = partialTx
+    {extraUTxO = UTxO $ unUTxO extraUTxO `Map.restrictKeys` txIns}
   where
     txIns = tx ^. bodyTxL . inputsTxBodyL