slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

less debug output from some low-level functions

Browse Source
This commit is contained in:
Simon Michael 2014-04-03 15:21:06 -07:00
parent f409f72899
commit 2844333857
2 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
hledger-lib/Hledger/Data/Ledger.hs
View File

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

2
hledger-lib/Hledger/Reports/ReportOptions.hs
View File

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