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

(limited to 'src/server/Controller')

diff --git a/src/server/Controller/Payment.hs b/src/server/Controller/Payment.hs
index ec241f7..a9d1acb 100644
--- a/src/server/Controller/Payment.hs
+++ b/src/server/Controller/Payment.hs
@@ -5,7 +5,6 @@ module Controller.Payment
   , getMonthlyPayments
   , createPayment
   , deletePayment
-  , getPaymentsCount
   ) where
 
 import Web.Scotty
@@ -28,7 +27,6 @@ import Json (jsonObject)
 import Model.Database
 import qualified Model.Payment as P
 import Model.Frequency
-import Model.Json.Number
 import Model.Message.Key (Key(PaymentNotDeleted))
 
 getPayments :: ActionM ()
@@ -66,9 +64,3 @@ deletePayment paymentId =
         status badRequest400
         text . TL.pack . show $ PaymentNotDeleted
   )
-
-getPaymentsCount :: ActionM ()
-getPaymentsCount =
-  Secure.loggedAction (\_ -> do
-    Number <$> (liftIO . runDb $ P.getPaymentsCount) >>= json
-  )
-- 
cgit v1.2.3