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

imp: stats: run time and throughput on one line

Browse Source
This commit is contained in:
Simon Michael 2021-11-26 07:11:56 -10:00
parent 8d618f0821
commit cda693a94f
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
hledger/Hledger/Cli/Commands/Stats.hs
View File

@ -57,8 +57,8 @@ stats opts@CliOpts{reportspec_=rspec, progstarttime_} j = do
writeOutputLazyText opts $ TB.toLazyText b writeOutputLazyText opts $ TB.toLazyText b
t <- getPOSIXTime t <- getPOSIXTime
let dt = t - progstarttime_ let dt = t - progstarttime_
printf "Run time : %.2f s\n" (realToFrac dt :: Float) printf "Run time (throughput) : %.2fs (%.0f txns/s)\n"
printf "Throughput : %.0f txns/s\n" (fromIntegral numtxns / realToFrac dt :: Float) (realToFrac dt :: Float) (fromIntegral numtxns / realToFrac dt :: Float)
showLedgerStats :: Ledger -> Day -> DateSpan -> (TB.Builder, Int) showLedgerStats :: Ledger -> Day -> DateSpan -> (TB.Builder, Int)
showLedgerStats l today span = showLedgerStats l today span =