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

left-justify arguments in benchmark summary

Browse Source
This commit is contained in:
Simon Michael 2008-11-27 06:29:46 +00:00
parent 2092ed85ae
commit cd41128620
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tools/bench.hs
View File

@ -115,9 +115,11 @@ summarise tests exes results = do
maketable :: [String] -> [String] -> [[[Float]]] -> Table String maketable :: [String] -> [String] -> [[[Float]]] -> Table String
maketable rownames colnames results = Table rowhdrs colhdrs rows maketable rownames colnames results = Table rowhdrs colhdrs rows
where where
rowhdrs = Group NoLine $ map Header rownames rowhdrs = Group NoLine $ map Header $ padright rownames
colhdrs = Group SingleLine $ map Header colnames colhdrs = Group SingleLine $ map Header colnames
rows = map (map (showtime . minimum)) results rows = map (map (showtime . minimum)) results
padright ss = map (printf (printf "%%-%ds" w)) ss
where w = maximum $ map length ss
showtime = printf $ "%."++(show precision)++"f" showtime = printf $ "%."++(show precision)++"f"