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

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

diff --git a/src/server/Controller/Payment.hs b/src/server/Controller/Payment.hs
index 117310a..dc1083e 100644
--- a/src/server/Controller/Payment.hs
+++ b/src/server/Controller/Payment.hs
@@ -3,6 +3,7 @@ module Controller.Payment
   , createPaymentAction
   , deletePaymentAction
   , getTotalPaymentsAction
+  , getPaymentsCountAction
   ) where
 
 import Web.Scotty
@@ -20,6 +21,7 @@ import qualified Secure
 import Model.Database
 import Model.Payment
 import Model.Json.Message
+import Model.Json.Number
 import Model.Message
 import Model.Message.Key (Key(PaymentNotDeleted))
 
@@ -54,3 +56,9 @@ getTotalPaymentsAction =
   Secure.loggedAction (\_ -> do
     (liftIO . runDb $ getTotalPayments) >>= json
   )
+
+getPaymentsCountAction :: ActionM ()
+getPaymentsCountAction =
+  Secure.loggedAction (\_ -> do
+    Number <$> (liftIO . runDb $ getPaymentsCount) >>= json
+  )
-- 
cgit v1.2.3