Sulkta-OSS/agora
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Added changes to address comments

Browse source
This commit is contained in:
Riley Kilgore 2022-03-08 06:15:20 -08:00
parent b15c956dd3
commit 21541f3ba8
2 changed files with 56 additions and 30 deletions
Download patch file Download diff file Expand all files Collapse all files

13
bench/Main.hs
View file

@ -16,10 +16,6 @@ import Agora.AuthorityToken (
AuthorityToken (AuthorityToken),
authorityTokenPolicy,
)
import Agora.MultiSig (
MultiSig (..),
multiSigValidator,
)
import Agora.SafeMoney (LQ)
import Agora.Stake (
Stake (Stake),
@ -38,16 +34,9 @@ benchmarks =
benchGroup
"full_scripts"
[ bench "authorityTokenPolicy" $ authorityTokenPolicy authorityToken
, bench "multiSigValidator" $ multiSigValidator multiSig
, bench "stakePolicy" $ stakePolicy (Stake @LQ)
, bench "stakeValidator" $ stakeValidator (Stake @LQ)
]
authorityToken :: AuthorityToken
authorityToken = AuthorityToken (Value.assetClass "" "")
multiSig :: MultiSig (s :: S)
multiSig = MultiSig
{ keys = PSNil
, minSigs = 0
}
authorityToken = AuthorityToken (Value.assetClass "" "")