slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions 2 Packages Projects Releases Wiki Activity

benchresults instead of summary for bench results filename

Browse Source
This commit is contained in:
Simon Michael 2008-12-05 09:01:42 +00:00
parent 250c92f646
commit 77a543e7b7
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tools/bench.hs
View File

@ -104,12 +104,10 @@ time cmd = do
return $ realToFrac $ diffUTCTime t2 t1 return $ realToFrac $ diffUTCTime t2 t1
summarise tests exes results = do summarise tests exes results = do
-- putStrLn ""; print results
putStrLn "\nSummary (best iteration):\n" putStrLn "\nSummary (best iteration):\n"
let t = maketable tests exes results let t = maketable tests exes results
putStrLn $ TA.render id t putStrLn $ TA.render id t
-- putStrLn $ "See " ++ prefix ++ "summary.*" let outname = "benchresults"
let outname = "summary"
writeFile (outname <.> "txt") $ TA.render id t writeFile (outname <.> "txt") $ TA.render id t
writeFile (outname <.> "html") $ renderHtml $ TH.css TH.defaultCss +++ TH.render id t writeFile (outname <.> "html") $ renderHtml $ TH.css TH.defaultCss +++ TH.render id t