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

rename/temp print

Browse source
This commit is contained in:
Seungheon Oh 2022-05-25 11:49:43 -05:00
parent 7a599ffa35
commit 005356b759
3 changed files with 13 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

7
agora-bench/Main.hs
View file

@ -9,7 +9,7 @@ import Spec.Effect.GovernorMutation qualified as GovernorMutation
import Spec.Effect.TreasuryWithdrawal qualified as TreasuryWithdrawal
import Spec.Governor qualified as Governor
import Spec.Proposal qualified as Proposal
import Spec.Spec (group)
import Spec.Specification (group)
import Spec.Stake qualified as Stake
import Spec.Treasury qualified as Treasury
import Prelude
@ -20,6 +20,11 @@ main :: IO ()
main = do
I.writeFile "bench.csv" $
(decodeUtf8 . encodeDefaultOrderedByName) $
res
mapM_ print res
where
res =
specificationTreeToBenchmarks $
group
"Benchmark"