From 889df8caf04de5f10a9e623bab3e502e9573159d Mon Sep 17 00:00:00 2001
From: Joris
Date: Thu, 3 Sep 2015 23:32:39 +0200
Subject: Give the payments count to the client

---
 src/server/Model/Payment.hs | 9 +++++++++
 1 file changed, 9 insertions(+)

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

diff --git a/src/server/Model/Payment.hs b/src/server/Model/Payment.hs
index 300f6b8..db1f36f 100644
--- a/src/server/Model/Payment.hs
+++ b/src/server/Model/Payment.hs
@@ -4,6 +4,7 @@ module Model.Payment
   , paymentKeyToText
   , deleteOwnPayment
   , getTotalPayments
+  , getPaymentsCount
   ) where
 
 import Data.Text (Text)
@@ -82,3 +83,11 @@ getTotalPayment (_, Nothing) = Nothing
 
 unValueTuple :: (Value a, Value b) -> (a, b)
 unValueTuple (Value a, Value b) = (a, b)
+
+getPaymentsCount :: Persist Int
+getPaymentsCount =
+  unValue . head <$>
+    (select $
+    from $ \payment -> do
+      where_ (isNothing (payment ^. PaymentDeletedAt))
+      return countRows) :: Persist Int
-- 
cgit v1.2.3