Rename Write.Tx.Balance.Selection to SelectAssetsResult

cardano-foundation · Apr 23, 2024 · 446a183 · 446a183
1 parent 5d98eca
commit 446a183
Showing 1 changed file with 8 additions and 2 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
@@ -745,7 +745,13 @@ balanceTxInner
     -- transaction considering only the maximum cost, and only after, try to
     -- adjust the change and ExUnits of each redeemer to something more
     -- sensible than the max execution cost.
-    (Selection{extraInputs,extraCollateral,extraOutputs,extraInputScripts}, s')
+    ( SelectAssetsResult
+        { extraInputs
+        , extraCollateral
+        , extraOutputs
+        , extraInputScripts
+        }
+        , s')
         <- selectAssets
             pp
             utxoAssumptions
@@ -880,7 +886,7 @@ balanceTxInner
         left ErrBalanceTxAssignRedeemers $
             assignScriptRedeemers pp timeTranslation utxoReference redeemers tx'
 
-data Selection = Selection
+data SelectAssetsResult = SelectAssetsResult
     { extraInputs :: [W.TxIn]
     , extraCollateral :: [W.TxIn]
     , extraOutputs :: [W.TxOut]