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/Persistence/Payment.hs | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

(limited to 'server/src/Persistence/Payment.hs')

diff --git a/server/src/Persistence/Payment.hs b/server/src/Persistence/Payment.hs
index bcd7eb8..eb238d4 100644
--- a/server/src/Persistence/Payment.hs
+++ b/server/src/Persistence/Payment.hs
@@ -1,6 +1,7 @@
 module Persistence.Payment
   ( Payment(..)
   , find
+  , firstPunctualDay
   , listActive
   , listPunctual
   , listActiveMonthlyOrderedByName
@@ -60,6 +61,21 @@ find paymentId =
       SQLite.query conn "SELECT * FROM payment WHERE id = ?" (Only paymentId)
   )
 
+data DayRow = DayRow Day
+
+instance FromRow DayRow where
+  fromRow = DayRow <$> SQLite.field
+
+firstPunctualDay :: Query (Maybe Day)
+firstPunctualDay =
+  Query (\conn -> do
+    fmap (\(DayRow d) -> d) . listToMaybe <$>
+      SQLite.query
+        conn
+        "SELECT date FROM payment WHERE frequency = ? AND deleted_at IS NULL ORDER BY date LIMIT 1"
+        (Only (FrequencyField Punctual))
+  )
+
 listActive :: Query [Payment]
 listActive =
   Query (\conn -> do
-- 
cgit v1.2.3