From 0f85cbd8ee736b1996e3966bac1f5e47ed7d27a9 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 3 Nov 2019 15:47:11 +0100
Subject: Fetch the first payment date instead of every payment to get
 cumulative income

---
 server/src/Controller/Income.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'server/src/Controller/Income.hs')

diff --git a/server/src/Controller/Income.hs b/server/src/Controller/Income.hs
index 4a41bd3..127e3b3 100644
--- a/server/src/Controller/Income.hs
+++ b/server/src/Controller/Income.hs
@@ -37,11 +37,11 @@ list page perPage =
       count <- IncomePersistence.count
 
       users <- UserPersistence.list
-      allPayments <- PaymentPersistence.listPunctual -- TODO: get first payment defined for all
+      firstPayment <- PaymentPersistence.firstPunctualDay
       allIncomes <- IncomePersistence.listAll
 
       let since =
-            CM.useIncomesFrom (map _user_id users) allIncomes allPayments
+            CM.useIncomesFrom (map _user_id users) allIncomes firstPayment
 
       let byUser =
             case since of
-- 
cgit v1.2.3