diff options
Diffstat (limited to 'src/server/Controller/Payment.hs')
| -rw-r--r-- | src/server/Controller/Payment.hs | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/src/server/Controller/Payment.hs b/src/server/Controller/Payment.hs index 02c8a8e..ffb575c 100644 --- a/src/server/Controller/Payment.hs +++ b/src/server/Controller/Payment.hs @@ -5,7 +5,6 @@ module Controller.Payment , getMonthlyPayments , createPayment , deletePayment - , getTotalPayments , getPaymentsCount ) where @@ -26,6 +25,7 @@ import Json (jsonObject) import Model.Database import qualified Model.Payment as P +import qualified Model.Payer as Payer import Model.Frequency import Model.Json.Number import qualified Model.Json.PaymentId as JP @@ -63,12 +63,6 @@ deletePayment paymentId = jsonObject [("error", Json.String $ getMessage PaymentNotDeleted)] ) -getTotalPayments :: ActionM () -getTotalPayments = - Secure.loggedAction (\_ -> do - (liftIO . runDb $ P.getTotalPayments) >>= json - ) - getPaymentsCount :: ActionM () getPaymentsCount = Secure.loggedAction (\_ -> do |