Correct expiring owners query for paid

2023-01-24 18:34:22 -06:00 · 2023-01-24 18:34:22 -06:00 · bde97f9211
parent 814d4c9ee5
commit bde97f9211
1 changed files with 4 additions and 1 deletions
--- a/src/Owner.hs
+++ b/src/Owner.hs
@ -297,4 +297,7 @@ findOwnerById i =
 findExpiringOwners :: UTCTime -> Action IO [Document]
 findExpiringOwners now =
  rest =<<
-  find (select ["expiration" =: ["$lte" =: addUTCTime 172800 now]] "owners")
+  find
+    (select
+       ["paid" =: True, "expiration" =: ["$lte" =: addUTCTime 172800 now]]
+       "owners")