Shorten definition of arbitrary for PartialTx.

cardano-foundation · Apr 22, 2024 · c4a8e69 · c4a8e69
1 parent 918bd0e
commit c4a8e69
Showing 1 changed file with 3 additions and 6 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
@@ -2667,12 +2667,9 @@ instance forall era. IsRecentEra era => Arbitrary (PartialTx era) where
     arbitrary = do
         tx <- genTxForBalancing
         extraUTxO <- genExtraUTxO tx
-        return PartialTx
-            { tx
-            , extraUTxO
-            , redeemers = []
-            , timelockKeyWitnessCounts = mempty
-            }
+        let redeemers = []
+        let timelockKeyWitnessCounts = mempty
+        pure PartialTx {tx, extraUTxO, redeemers, timelockKeyWitnessCounts}
       where
         genExtraUTxO :: Tx era -> Gen (UTxO era)
         genExtraUTxO tx =