mirror of
https://github.com/simonmichael/hledger.git
synced 2024-09-19 10:17:35 +03:00
imp: stats: run time and throughput on one line
This commit is contained in:
parent
8d618f0821
commit
cda693a94f
@ -57,8 +57,8 @@ stats opts@CliOpts{reportspec_=rspec, progstarttime_} j = do
|
||||
writeOutputLazyText opts $ TB.toLazyText b
|
||||
t <- getPOSIXTime
|
||||
let dt = t - progstarttime_
|
||||
printf "Run time : %.2f s\n" (realToFrac dt :: Float)
|
||||
printf "Throughput : %.0f txns/s\n" (fromIntegral numtxns / realToFrac dt :: Float)
|
||||
printf "Run time (throughput) : %.2fs (%.0f txns/s)\n"
|
||||
(realToFrac dt :: Float) (fromIntegral numtxns / realToFrac dt :: Float)
|
||||
|
||||
showLedgerStats :: Ledger -> Day -> DateSpan -> (TB.Builder, Int)
|
||||
showLedgerStats l today span =
|
||||
|
Loading…
Reference in New Issue
Block a user