mirror of
https://github.com/simonmichael/hledger.git
synced 2024-09-20 02:37:12 +03:00
fix a misnamed var
This commit is contained in:
parent
3441c2d816
commit
36534a9ef5
@ -296,13 +296,13 @@ filterJournalPostingsByClearedStatus (Just c) j@Journal{jtxns=ts} = j{jtxns=map
|
||||
-- | Strip out any virtual postings, if the flag is true, otherwise do
|
||||
-- no filtering.
|
||||
filterJournalPostingsByRealness :: Bool -> Journal -> Journal
|
||||
filterJournalPostingsByRealness False l = l
|
||||
filterJournalPostingsByRealness False j = j
|
||||
filterJournalPostingsByRealness True j@Journal{jtxns=ts} = j{jtxns=map filterpostings ts}
|
||||
where filterpostings t@Transaction{tpostings=ps} = t{tpostings=filter isReal ps}
|
||||
|
||||
-- | Strip out any postings with zero amount, unless the flag is true.
|
||||
filterJournalPostingsByEmpty :: Bool -> Journal -> Journal
|
||||
filterJournalPostingsByEmpty True l = l
|
||||
filterJournalPostingsByEmpty True j = j
|
||||
filterJournalPostingsByEmpty False j@Journal{jtxns=ts} = j{jtxns=map filterpostings ts}
|
||||
where filterpostings t@Transaction{tpostings=ps} = t{tpostings=filter (not . isEmptyPosting) ps}
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user