Show the payment table with server side paging

2 files changed, 24 insertions, 4 deletions

diff --git a/server/src/Persistence/Income.hs b/server/src/Persistence/Income.hs
index 4ae3228..cb2ef10 100644
--- a/server/src/Persistence/Income.hs
+++ b/server/src/Persistence/Income.hs
@@ -60,9 +60,6 @@ listAll =
       SQLite.query_ conn "SELECT * FROM income WHERE deleted_at IS NULL"
   )
 
--- firstIncomeByUser
--- SELECT user_id, MIN(date) FROM income WHERE deleted_at IS NULL GROUP BY user_id;
-
 create :: UserId -> Day -> Int -> Query Income
 create userId date amount =
   Query (\conn -> do
diff --git a/server/src/Persistence/Payment.hs b/server/src/Persistence/Payment.hs
index eb238d4..e01753f 100644
--- a/server/src/Persistence/Payment.hs
+++ b/server/src/Persistence/Payment.hs
@@ -1,8 +1,9 @@
 module Persistence.Payment
-  ( Payment(..)
+  ( count
   , find
   , firstPunctualDay
   , listActive
+  , listActivePage
   , listPunctual
   , listActiveMonthlyOrderedByName
   , create
@@ -54,6 +55,18 @@ instance ToRow InsertRow where
     , toField (_payment_createdAt p)
     ]
 
+data Count = Count Int
+
+instance FromRow Count where
+  fromRow = Count <$> SQLite.field
+
+count :: Query Int
+count =
+  Query (\conn ->
+    (\[Count n] -> n) <$>
+      SQLite.query_ conn "SELECT COUNT(*) FROM payment WHERE deleted_at IS NULL"
+  )
+
 find :: PaymentId -> Query (Maybe Payment)
 find paymentId =
   Query (\conn -> do
@@ -83,6 +96,16 @@ listActive =
       SQLite.query_ conn "SELECT * FROM payment WHERE deleted_at IS NULL"
   )
 
+listActivePage :: Int -> Int -> Query [Payment]
+listActivePage page perPage =
+  Query (\conn ->
+    map (\(Row p) -> p) <$>
+      SQLite.query
+        conn
+        "SELECT * FROM payment WHERE deleted_at IS NULL ORDER BY date DESC LIMIT ? OFFSET ?"
+        (perPage, (page - 1) * perPage)
+  )
+
 listPunctual :: Query [Payment]
 listPunctual =
   Query (\conn -> do