aboutsummaryrefslogtreecommitdiff
path: root/src/server/Controller
diff options
context:
space:
mode:
Diffstat (limited to 'src/server/Controller')
-rw-r--r--src/server/Controller/Payment.hs8
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
- )