Update Changelog

CHANGELOG.md

@@ -4,6 +4,13 @@ All notable changes to this project will be documented in this file.
 The format is based on [Keep a Changelog](https://keepachangelog.com/en/1.0.0/),
 and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0.html).
 
+## [Unreleased]
+
+### Fixed
+
+- Owner expiration query
+- Xero token expiration query
+
 ## [1.2.0] - 2023-01-09
 
 ### Added

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")

src/Xero.hs

@@ -283,8 +283,7 @@ findToken a = findOne (select ["address" =: a] "xerotokens")
 findExpiringTokens :: UTCTime -> Action IO [Document]
 findExpiringTokens now =
   rest =<<
-  find
+  find (select ["refExpires" =: ["$lte" =: addUTCTime 172800 now]] "xerotokens")
-    (select ["refExpires" =: ["$lte" =: addUTCTime 1728000 now]] "xerotokens")
 
 -- | Function to request accesstoken
 requestXeroToken :: Pipe -> T.Text -> Xero -> T.Text -> T.Text -> IO Bool