From 2844333857c5df0babdca5dfe8439b359fef62ef Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Thu, 3 Apr 2014 15:21:06 -0700
Subject: [PATCH] less debug output from some low-level functions

---
 hledger-lib/Hledger/Data/Ledger.hs           | 7 ++-----
 hledger-lib/Hledger/Reports/ReportOptions.hs | 2 +-
 2 files changed, 3 insertions(+), 6 deletions(-)

diff --git a/hledger-lib/Hledger/Data/Ledger.hs b/hledger-lib/Hledger/Data/Ledger.hs
index dfd73dd90..e49966527 100644
--- a/hledger-lib/Hledger/Data/Ledger.hs
+++ b/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'
 
diff --git a/hledger-lib/Hledger/Reports/ReportOptions.hs b/hledger-lib/Hledger/Reports/ReportOptions.hs
index a7a965677..b0903886e 100644
--- a/hledger-lib/Hledger/Reports/ReportOptions.hs
+++ b/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