aregister: fix date filtering with disordered txns (fixes #184)

Fix a refactoring-related regression that the tests missed: if
transactions were not ordered by date in the journal, register
could include postings before the report start date in the output.
This commit is contained in:
Simon Michael 2014-05-06 21:36:04 -07:00
parent 88f18adbc4
commit 2bd785c3fb

View File

@ -66,7 +66,7 @@ postingsReport opts q j = (totallabel, items)
dbg "ps3" $ (if related_ opts then concatMap relatedPostings else id) $ -- with -r, replace each with its sibling postings
dbg "ps2" $ filter (reportq `matchesPosting`) $ -- filter postings by the query, including before the report start date, ignoring depth
dbg "ps1" $ journalPostings $ journalSelectingAmountFromOpts opts j
(precedingps, reportps) = dbg "precedingps, reportps" $ span (beforestartq `matchesPosting`) pstoend
(precedingps, reportps) = dbg "precedingps, reportps" $ partition (beforestartq `matchesPosting`) pstoend
empty = queryEmpty q
-- displayexpr = display_ opts -- XXX