Compute payment count client side

1 files changed, 0 insertions, 8 deletions

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
-  )