Use skeleton for arguments of type TxSkeleton.

In response to review feedback: https://github.com/input-output-hk/cardano-wallet/pull/2620/files#r622668819
cardano-foundation · Apr 30, 2021 · 04e9013 · 04e9013
1 parent 8f7b7b3
commit 04e9013
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/lib/shelley/src/Cardano/Wallet/Shelley/Transaction.hs b/lib/shelley/src/Cardano/Wallet/Shelley/Transaction.hs
@@ -697,8 +697,8 @@ mkTxSkeleton witness context skeleton = TxSkeleton
 -- | Estimates the final cost of a transaction based on its skeleton.
 --
 estimateTxCost :: ProtocolParameters -> TxSkeleton -> Coin
-estimateTxCost pp args =
-    computeFee $ estimateTxSize args
+estimateTxCost pp skeleton =
+    computeFee $ estimateTxSize skeleton
   where
     LinearFee (Quantity a) (Quantity b) = getFeePolicy $ txParameters pp
 
@@ -714,7 +714,7 @@ estimateTxCost pp args =
 -- https://github.com/input-output-hk/cardano-ledger-specs/blob/master/shelley/chain-and-ledger/shelley-spec-ledger-test/cddl-files/shelley.cddl
 --
 estimateTxSize :: TxSkeleton -> TxSize
-estimateTxSize args =
+estimateTxSize skeleton =
     TxSize $ fromIntegral sizeOf_Transaction
   where
     TxSkeleton
@@ -725,7 +725,7 @@ estimateTxSize args =
         , txInputCount
         , txOutputs
         , txChange
-        } = args
+        } = skeleton
 
     numberOf_Inputs
         = fromIntegral txInputCount