slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages 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 filterQueryOrNotQuery p = simplifyQuery . filterQuery' p
where where
filterQuery' :: (Query -> Bool) -> Query -> Query filterQuery' :: (Query -> Bool) -> Query -> Query
filterQuery' p (And qs) = And $ map (filterQuery p) qs filterQuery' p (And qs) = And $ map (filterQueryOrNotQuery p) qs
filterQuery' p (Or qs) = Or $ map (filterQuery p) qs filterQuery' p (Or qs) = Or $ map (filterQueryOrNotQuery p) qs
filterQuery' p (Not q) | p q = Not $ filterQuery p q filterQuery' p (Not q) | p q = Not $ filterQueryOrNotQuery p q
filterQuery' p q = if p q then q else Any filterQuery' p q = if p q then q else Any
-- * accessors -- * accessors