less debug output from some low-level functions

hledger-lib/Hledger/Data/Ledger.hs

@@ -19,7 +19,6 @@ import Hledger.Data.Account
 import Hledger.Data.Journal
 import Hledger.Data.Posting
 import Hledger.Query
-import Hledger.Utils
 
 
 instance Show Ledger where
@@ -44,10 +43,8 @@ ledgerFromJournal :: Query -> Journal -> Ledger
 ledgerFromJournal q j = nullledger{ljournal=j'', laccounts=as}
   where
     (q',depthq)  = (filterQuery (not . queryIsDepth) q, filterQuery queryIsDepth q)
-    j'  = 
-        dbg "ledgerFromJournal1" $
-        filterJournalPostingAmounts (filterQuery queryIsSym q) $ -- remove amount parts which the query's sym: terms would exclude
-        filterJournalPostings q' j
+    j'  = filterJournalPostingAmounts (filterQuery queryIsSym q) $ -- remove amount parts which the query's sym: terms would exclude
+          filterJournalPostings q' j
     as  = accountsFromPostings $ journalPostings j'
     j'' = filterJournalPostings depthq j'
 

hledger-lib/Hledger/Reports/ReportOptions.hs

@@ -304,7 +304,7 @@ reportSpans opts q j = (reportspan, spans)
 
     -- if there's a reporting interval, calculate the report periods
     -- which enclose the requested span
-    spans = dbg "spans" $ splitSpan (intervalFromOpts opts) requestedspan'
+    spans = splitSpan (intervalFromOpts opts) requestedspan'
 
     -- the overall report span encloses the periods
     reportspan = DateSpan