imp:stats: with multiple reports, add a blank line before runtime stats

simonmichael · Mar 2, 2024 · 7db8e01 · 7db8e01
1 parent c240544
commit 7db8e01
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/hledger/Hledger/Cli/Commands/Stats.hs b/hledger/Hledger/Cli/Commands/Stats.hs
@@ -52,14 +52,15 @@ statsmode = hledgerCommandMode
 stats :: CliOpts -> Journal -> IO ()
 stats opts@CliOpts{rawopts_=rawopts, reportspec_=rspec, progstarttime_} j = do
   let today = _rsDay rspec
+      verbose = boolopt "verbose" rawopts
       q = _rsQuery rspec
       l = ledgerFromJournal q j
       intervalspans = snd $ reportSpanBothDates j rspec
+      ismultiperiod = length intervalspans > 1
       (ls, txncounts) = unzip $ map (showLedgerStats verbose l today) intervalspans
       numtxns = sum txncounts
-      b = unlinesB ls
-      verbose = boolopt "verbose" rawopts
-  writeOutputLazyText opts $ TL.init $ TB.toLazyText b
+      txt = (if ismultiperiod then id else TL.init) $ TB.toLazyText $ unlinesB ls
+  writeOutputLazyText opts txt
   t <- getPOSIXTime
   let dt = t - progstarttime_
   rtsStatsEnabled <- getRTSStatsEnabled