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

allow saving the bench report to an arbitrary location

Browse source
This commit is contained in:
fanghr 2022-05-27 01:01:30 +08:00
parent 4a3882d90f
commit d192379d3c
3 changed files with 40 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
agora-bench/Main.hs
View file

@ -4,6 +4,7 @@ import Bench (specificationTreeToBenchmarks)
import Data.Csv (encodeDefaultOrderedByName)
import Data.Text.Lazy.Encoding (decodeUtf8)
import Data.Text.Lazy.IO as I (writeFile)
import Options (Options (..), parseOptions)
import Prettyprinter (defaultLayoutOptions, layoutPretty, pretty)
import Prettyprinter.Render.String (renderString)
import Spec.AuthorityToken qualified as AuthorityToken
@ -20,7 +21,9 @@ import Prelude
main :: IO ()
main = do
I.writeFile "bench.csv" $
options <- parseOptions
I.writeFile options.output $
(decodeUtf8 . encodeDefaultOrderedByName) res
mapM_ (putStrLn . renderString . layoutPretty defaultLayoutOptions . pretty) res