From cc58377a48d13ef85cedb5ec0e19eb8b879dd497 Mon Sep 17 00:00:00 2001
From: Joris
Date: Mon, 28 Mar 2016 18:04:25 +0200
Subject: Compute payment count client side

---
 src/server/Model/Payment.hs | 8 --------
 1 file changed, 8 deletions(-)

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

diff --git a/src/server/Model/Payment.hs b/src/server/Model/Payment.hs
index 9b32fea..5c7d940 100644
--- a/src/server/Model/Payment.hs
+++ b/src/server/Model/Payment.hs
@@ -6,7 +6,6 @@ module Model.Payment
   , getMonthlyPayments
   , createPayment
   , deleteOwnPayment
-  , getPaymentsCount
   ) where
 
 import Data.Text (Text)
@@ -91,10 +90,3 @@ deleteOwnPayment user paymentId = do
           return False
     Nothing ->
       return False
-
-getPaymentsCount :: Persist Int
-getPaymentsCount =
-  count
-    [ PaymentDeletedAt P.==. Nothing
-    , PaymentFrequency P.==. Punctual
-    ]
-- 
cgit v1.2.3