-
Notifications
You must be signed in to change notification settings - Fork 483
New issue
Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.
By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.
Already on GitHub? Sign in to your account
SCP-821: Add a fixed transaction cost to the emulator #2943
Conversation
# Conflicts: # plutus-use-cases/test/Spec/Auction.hs # plutus-use-cases/test/Spec/Prism.hs # plutus-use-cases/test/Spec/crowdfundingEmulatorTestOutput.txt
walletFundsChange :: Wallet -> Value -> TracePredicate | ||
walletFundsChange w dlt = | ||
flip postMapM (L.generalize $ Folds.walletFunds w) $ \finalValue -> do | ||
flip postMapM (L.generalize $ (,) <$> Folds.walletFunds w <*> Folds.walletFees w) $ \(finalValue, fees) -> do |
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
This is very nice now!
Co-authored-by: Jann Müller <j-mueller@users.noreply.github.com>
This "minimum fee" parameter should really be better documented. In particular, I didn't see it mentioned at all in the Plutus Playground, which led to some confusion when my actions did not go through because I didn't have an extra 10 ADA in the simulated wallets for every transaction. Also, I'm assuming that 10 ADA won't be the actual minimum fee when Plutus hits mainnet? :) Finally, I would have expected something like this to be contained in a config file, as opposed to hardcoded in Haskell source files... |
Pre-submit checklist:
nix-shell shell.nix --run fix-stylish-haskell
to fix any formatting issuesPre-merge checklist: