From 1a100fd8ca44f399cfe5ecc35bcdb63f189fe611 Mon Sep 17 00:00:00 2001
From: Rene Vergara <rene@vergara.network>
Date: Tue, 24 Jan 2023 10:20:00 -0600
Subject: [PATCH] Correct owner expiration query

---
 src/Owner.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Owner.hs b/src/Owner.hs
index c9dba61..4deb848 100644
--- a/src/Owner.hs
+++ b/src/Owner.hs
@@ -297,4 +297,4 @@ findOwnerById i =
 findExpiringOwners :: UTCTime -> Action IO [Document]
 findExpiringOwners now =
   rest =<<
-  find (select ["expiration" =: ["$lte" =: addUTCTime 1728000 now]] "owners")
+  find (select ["expiration" =: ["$lte" =: addUTCTime 172800 now]] "owners")