impl skeleton of calcScriptExecutionCost

cardano-foundation · Sep 14, 2021 · 7fac98b · 7fac98b
1 parent ec6c3f1
commit 7fac98b
Showing 1 changed file with 10 additions and 1 deletion.
diff --git a/lib/shelley/src/Cardano/Wallet/Shelley/Transaction.hs b/lib/shelley/src/Cardano/Wallet/Shelley/Transaction.hs
@@ -384,7 +384,8 @@ newTransactionLayer networkId = TransactionLayer
         estimateTxCost pp $
         mkTxSkeleton (txWitnessTagFor @k) ctx skeleton
 
-    , calcScriptExecutionCost = \_pp _sealedTx -> undefined
+    , calcScriptExecutionCost =
+       _calcScriptExecutionCost
 
     , computeSelectionLimit = \pp ctx outputsToCover ->
         let txMaxSize = getTxMaxSize $ txParameters pp in
@@ -483,6 +484,14 @@ dummySkeleton inputCount outputs = SelectionSkeleton
         TokenBundle.getAssets . view #tokens <$> outputs
     }
 
+_calcScriptExecutionCost
+    :: ProtocolParameters
+    -> SealedTx
+    -> Coin
+_calcScriptExecutionCost pp _sealedTx = undefined
+  where
+    _prices = view #executionUnitPrices pp
+
 _decodeSignedTx
     :: AnyCardanoEra
     -> ByteString