diff options
| author | Joris | 2015-08-29 13:30:09 +0200 |
|---|---|---|
| committer | Joris | 2015-08-29 13:30:09 +0200 |
| commit | 6b466f616035c2fc03359d182c074f096d6b7f17 (patch) | |
| tree | 47708f2e96614d71059f98c757d6a3fe88c8b923 /src/server/Controller/Payment.hs | |
| parent | aa7f70d172be9ef322f9a0d19d1d9d9489f9fa75 (diff) | |
| download | budget-6b466f616035c2fc03359d182c074f096d6b7f17.tar.gz budget-6b466f616035c2fc03359d182c074f096d6b7f17.tar.bz2 budget-6b466f616035c2fc03359d182c074f096d6b7f17.zip | |
Showing exceeding payers
Diffstat (limited to 'src/server/Controller/Payment.hs')
| -rw-r--r-- | src/server/Controller/Payment.hs | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/server/Controller/Payment.hs b/src/server/Controller/Payment.hs index cbd342a..117310a 100644 --- a/src/server/Controller/Payment.hs +++ b/src/server/Controller/Payment.hs @@ -2,6 +2,7 @@ module Controller.Payment ( getPaymentsAction , createPaymentAction , deletePaymentAction + , getTotalPaymentsAction ) where import Web.Scotty @@ -47,3 +48,9 @@ deletePaymentAction paymentId = status badRequest400 json . Message . getMessage $ PaymentNotDeleted ) + +getTotalPaymentsAction :: ActionM () +getTotalPaymentsAction = + Secure.loggedAction (\_ -> do + (liftIO . runDb $ getTotalPayments) >>= json + ) |