From 7db8e01200db7fc22bf03e50e5bda519251fbdd6 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Fri, 1 Mar 2024 18:08:34 -1000
Subject: [PATCH] imp:stats: with multiple reports, add a blank line before
 runtime stats

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

diff --git a/hledger/Hledger/Cli/Commands/Stats.hs b/hledger/Hledger/Cli/Commands/Stats.hs
index 342bec686c0..ff0a320225b 100644
--- 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