From baefda5a902a94cedf84cfcd2ae550267e5d932e Mon Sep 17 00:00:00 2001
From: Joris
Date: Wed, 30 Mar 2016 00:28:55 +0200
Subject: Merge punctual and monthly payments in client model

---
 src/server/Controller/Payment.hs | 9 +--------
 1 file changed, 1 insertion(+), 8 deletions(-)

(limited to 'src/server/Controller')

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 ()
-- 
cgit v1.2.3