From 1dfb85d3fd56d163fc854a8b3cf659d0ac39f639 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sat, 4 Jan 2020 17:25:29 +0100
Subject: Search payments by cost too

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

(limited to 'server/src/Job/WeeklyReport.hs')

diff --git a/server/src/Job/WeeklyReport.hs b/server/src/Job/WeeklyReport.hs
index 16be396..ff80ddf 100644
--- a/server/src/Job/WeeklyReport.hs
+++ b/server/src/Job/WeeklyReport.hs
@@ -35,7 +35,7 @@ weeklyReport conf mbLastExecution = do
 
             _ ->
               return M.empty
-        weekPayments <- PaymentPersistence.listModifiedSince lastExecution
+        weekPayments <- PaymentPersistence.listModifiedPunctualSince lastExecution
         weekIncomes <- IncomePersistence.listModifiedSince lastExecution
         (preIncomeRepartition, postIncomeRepartition) <-
           PaymentPersistence.getPreAndPostPaymentRepartition paymentRange users
-- 
cgit v1.2.3