From cda693a94ff3e848d11e6adea93bc6916cb9f2ab Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Fri, 26 Nov 2021 07:11:56 -1000
Subject: [PATCH] imp: stats: run time and throughput on one line

---
 hledger/Hledger/Cli/Commands/Stats.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/hledger/Hledger/Cli/Commands/Stats.hs b/hledger/Hledger/Cli/Commands/Stats.hs
index 656e48b9b..2804a3fb3 100644
--- a/hledger/Hledger/Cli/Commands/Stats.hs
+++ b/hledger/Hledger/Cli/Commands/Stats.hs
@@ -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 =