diff options
| author | Joris | 2016-03-28 18:04:25 +0200 |
|---|---|---|
| committer | Joris | 2016-03-28 18:04:25 +0200 |
| commit | cc58377a48d13ef85cedb5ec0e19eb8b879dd497 (patch) | |
| tree | 8a400e8e208f9ca7a94a3dad054bdad2b4a04b0f /src/server/Model/Payment.hs | |
| parent | 166cd04e4b28770ede854dafc9ae30eae64102fe (diff) | |
Compute payment count client side
Diffstat (limited to 'src/server/Model/Payment.hs')
| -rw-r--r-- | src/server/Model/Payment.hs | 8 |
1 files changed, 0 insertions, 8 deletions
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 - ] |