From bde97f92113d43f1a2ee23b93715caacddbc5fae Mon Sep 17 00:00:00 2001
From: Rene Vergara <rene@vergara.network>
Date: Tue, 24 Jan 2023 18:34:22 -0600
Subject: [PATCH] Correct expiring owners query for paid

---
 src/Owner.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/Owner.hs b/src/Owner.hs
index 4deb848..2e85222 100644
--- 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")