balance: restore prefix on debug output from multibalance reports

This commit is contained in:
Simon Michael 2014-04-14 12:08:06 -07:00
parent 06a8ec07c5
commit d008c810dc

View File

@ -67,7 +67,7 @@ multiBalanceReport :: ReportOpts -> Query -> Journal -> MultiBalanceReport
multiBalanceReport opts q j = MultiBalanceReport (spans, items, totals) multiBalanceReport opts q j = MultiBalanceReport (spans, items, totals)
where where
-- dbg = const id -- exclude from debug output -- dbg = const id -- exclude from debug output
-- dbg s = let p = "multiBalanceReport" in Hledger.Utils.dbg (p++" "++s) -- add prefix in debug output dbg s = let p = "multiBalanceReport" in Hledger.Utils.dbg (p++" "++s) -- add prefix in debug output
nodepthq = dbg "nodepthq" $ filterQuery (not . queryIsDepth) q nodepthq = dbg "nodepthq" $ filterQuery (not . queryIsDepth) q
depthq = dbg "depthq" $ filterQuery queryIsDepth q depthq = dbg "depthq" $ filterQuery queryIsDepth q