diff options
| author | Joris | 2016-03-30 00:28:55 +0200 |
|---|---|---|
| committer | Joris | 2016-03-30 00:28:55 +0200 |
| commit | baefda5a902a94cedf84cfcd2ae550267e5d932e (patch) | |
| tree | 72fa7b4e6c49d025563e3d7cba1ec13af43aa1c2 /src/server/Controller | |
| parent | 76f8b85eb9f796d6df861a04f702ef5f48630795 (diff) | |
Merge punctual and monthly payments in client model
Diffstat (limited to 'src/server/Controller')
| -rw-r--r-- | src/server/Controller/Payment.hs | 9 |
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 () |