simonmichael/hledger
1
1
Fork 0
mirror of https://github.com/simonmichael/hledger.git synced 2024-09-19 10:17:35 +03:00
Code Issues Projects Releases Wiki Activity

fix: ui: declared accounts respect not:ACCT (another #1783 fix)

Browse Source
This commit is contained in:
Simon Michael 2021-12-09 13:45:57 -10:00
parent d1a0d37bd1
commit 43d935efda
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
hledger-lib/Hledger/Query.hs
View File

@ -399,9 +399,9 @@ filterQueryOrNotQuery :: (Query -> Bool) -> Query -> Query
filterQueryOrNotQuery p = simplifyQuery . filterQuery' p
where
filterQuery' :: (Query -> Bool) -> Query -> Query
filterQuery' p (And qs) = And $ map (filterQuery p) qs
filterQuery' p (Or qs) = Or $ map (filterQuery p) qs
filterQuery' p (Not q) | p q = Not $ filterQuery p q
filterQuery' p (And qs) = And $ map (filterQueryOrNotQuery p) qs
filterQuery' p (Or qs) = Or $ map (filterQueryOrNotQuery p) qs
filterQuery' p (Not q) | p q = Not $ filterQueryOrNotQuery p q
filterQuery' p q = if p q then q else Any
-- * accessors