aboutsummaryrefslogtreecommitdiff
path: root/src/server/Controller
diff options
context:
space:
mode:
Diffstat (limited to 'src/server/Controller')
-rw-r--r--src/server/Controller/Payment.hs9
1 files changed, 1 insertions, 8 deletions
diff --git a/src/server/Controller/Payment.hs b/src/server/Controller/Payment.hs
index a9d1acb..204794a 100644
--- a/src/server/Controller/Payment.hs
+++ b/src/server/Controller/Payment.hs
@@ -2,7 +2,6 @@
module Controller.Payment
( getPayments
- , getMonthlyPayments
, createPayment
, deletePayment
) where
@@ -32,13 +31,7 @@ import Model.Message.Key (Key(PaymentNotDeleted))
getPayments :: ActionM ()
getPayments =
Secure.loggedAction (\_ -> do
- (liftIO $ runDb P.getPunctualPayments) >>= json
- )
-
-getMonthlyPayments :: ActionM ()
-getMonthlyPayments =
- Secure.loggedAction (\user -> do
- (liftIO $ runDb (P.getUserMonthlyPayments (entityKey user))) >>= json
+ (liftIO $ runDb P.getPayments) >>= json
)
createPayment :: Text -> Text -> Frequency -> ActionM ()