diff options
Diffstat (limited to 'src/server/Controller/Payment.hs')
| -rw-r--r-- | src/server/Controller/Payment.hs | 8 |
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 - ) |