diff options
| author | Joris | 2015-12-31 19:34:29 +0100 |
|---|---|---|
| committer | Joris | 2015-12-31 19:34:29 +0100 |
| commit | b73ba24f3440b81698c9d5c370739d03f958f059 (patch) | |
| tree | 72caa19d605d9e9af2d43a6f62c177ddb3d0f3b3 /src/server/Controller | |
| parent | 5bfd349bedb9c395cbeb38bb888e379ba36d5d35 (diff) | |
Fetch all the payments, do the paging only in the UI
Diffstat (limited to 'src/server/Controller')
| -rw-r--r-- | src/server/Controller/Payment.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/server/Controller/Payment.hs b/src/server/Controller/Payment.hs index d233aa2..d2a9258 100644 --- a/src/server/Controller/Payment.hs +++ b/src/server/Controller/Payment.hs @@ -30,10 +30,10 @@ import qualified Model.Json.PaymentId as JP import Model.Message import Model.Message.Key (Key(PaymentNotDeleted)) -getPayments :: Int -> Int -> ActionM () -getPayments page perPage = +getPayments :: ActionM () +getPayments = Secure.loggedAction (\_ -> do - (liftIO $ runDb (P.getPunctualPayments page perPage)) >>= json + (liftIO $ runDb P.getPunctualPayments) >>= json ) getMonthlyPayments :: ActionM () |