From 43d935efdaaa921d4a0e6b345dfb35d1ec1a8642 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Thu, 9 Dec 2021 13:45:57 -1000
Subject: [PATCH] fix: ui: declared accounts respect not:ACCT (another #1783
 fix)

---
 hledger-lib/Hledger/Query.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/hledger-lib/Hledger/Query.hs b/hledger-lib/Hledger/Query.hs
index 26ddaae66..662a6cfc2 100644
--- a/hledger-lib/Hledger/Query.hs
+++ b/hledger-lib/Hledger/Query.hs
@@ -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