From d0461c3ef711dd4432cac525b4f9b2e5974395eb Mon Sep 17 00:00:00 2001 From: Simon Michael Date: Sat, 19 Apr 2014 11:26:01 -0700 Subject: [PATCH] cleanup --- hledger-lib/Hledger/Reports/MultiBalanceReports.hs | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/hledger-lib/Hledger/Reports/MultiBalanceReports.hs b/hledger-lib/Hledger/Reports/MultiBalanceReports.hs index 63cf5b36c..785b46246 100644 --- a/hledger-lib/Hledger/Reports/MultiBalanceReports.hs +++ b/hledger-lib/Hledger/Reports/MultiBalanceReports.hs @@ -67,9 +67,6 @@ type ClippedAccountName = AccountName multiBalanceReport :: ReportOpts -> Query -> Journal -> MultiBalanceReport multiBalanceReport opts q j = MultiBalanceReport (displayspans, items, totals) where - -- dbg = const id -- exclude from debug output - dbg s = let p = "multiBalanceReport" in Hledger.Utils.dbg (p++" "++s) -- add prefix in debug output - symq = dbg "symq" $ filterQuery queryIsSym $ dbg "requested q" q depthq = dbg "depthq" $ filterQuery queryIsDepth q depth = queryDepth depthq @@ -162,3 +159,7 @@ multiBalanceReport opts q j = MultiBalanceReport (displayspans, items, totals) highestlevelaccts = dbg "highestlevelaccts" $ [a | a <- displayedAccts, not $ any (`elem` displayedAccts) $ init $ expandAccountName a] + + dbg s = let p = "multiBalanceReport" in Hledger.Utils.dbg (p++" "++s) -- add prefix in debug output + -- dbg = const id -- exclude from debug output +