From cf749721488baa5ae27a53e0234e2051ddf73b79 Mon Sep 17 00:00:00 2001
From: Dmitry Astapov <dastapov@gmail.com>
Date: Wed, 11 Sep 2019 22:48:33 +0100
Subject: [PATCH] bin: improve debug output for budger report (show budget
 txns)

---
 hledger-lib/Hledger/Reports/BudgetReport.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/hledger-lib/Hledger/Reports/BudgetReport.hs b/hledger-lib/Hledger/Reports/BudgetReport.hs
index bae1e13b9..58386ec57 100644
--- a/hledger-lib/Hledger/Reports/BudgetReport.hs
+++ b/hledger-lib/Hledger/Reports/BudgetReport.hs
@@ -81,8 +81,8 @@ budgetReport ropts' assrt reportspan d j =
       concatMap tpostings $
       concatMap (flip runPeriodicTransaction reportspan) $
       jperiodictxns j
-    actualj = dbg1 "actualj" $ budgetRollUp budgetedaccts showunbudgeted j
-    budgetj = dbg1 "budgetj" $ budgetJournal assrt ropts reportspan j
+    actualj = dbg1With (("actualj"++).show.jtxns)  $ budgetRollUp budgetedaccts showunbudgeted j
+    budgetj = dbg1With (("budgetj"++).show.jtxns)  $ budgetJournal assrt ropts reportspan j
     actualreport@(MultiBalanceReport (actualspans, _, _)) = dbg1 "actualreport" $ multiBalanceReport ropts  q actualj
     budgetgoalreport@(MultiBalanceReport (_, budgetgoalitems, budgetgoaltotals)) = dbg1 "budgetgoalreport" $ multiBalanceReport (ropts{empty_=True}) q budgetj
     budgetgoalreport'