diff options
| author | Joris | 2016-03-28 18:04:25 +0200 |
|---|---|---|
| committer | Joris | 2016-03-28 18:04:25 +0200 |
| commit | cc58377a48d13ef85cedb5ec0e19eb8b879dd497 (patch) | |
| tree | 8a400e8e208f9ca7a94a3dad054bdad2b4a04b0f /src/server/Controller/Payment.hs | |
| parent | 166cd04e4b28770ede854dafc9ae30eae64102fe (diff) | |
| download | budget-cc58377a48d13ef85cedb5ec0e19eb8b879dd497.tar.gz budget-cc58377a48d13ef85cedb5ec0e19eb8b879dd497.tar.bz2 budget-cc58377a48d13ef85cedb5ec0e19eb8b879dd497.zip | |
Compute payment count client side
Diffstat (limited to 'src/server/Controller/Payment.hs')
| -rw-r--r-- | src/server/Controller/Payment.hs | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/src/server/Controller/Payment.hs b/src/server/Controller/Payment.hs index ec241f7..a9d1acb 100644 --- a/src/server/Controller/Payment.hs +++ b/src/server/Controller/Payment.hs @@ -5,7 +5,6 @@ module Controller.Payment , getMonthlyPayments , createPayment , deletePayment - , getPaymentsCount ) where import Web.Scotty @@ -28,7 +27,6 @@ import Json (jsonObject) import Model.Database import qualified Model.Payment as P import Model.Frequency -import Model.Json.Number import Model.Message.Key (Key(PaymentNotDeleted)) getPayments :: ActionM () @@ -66,9 +64,3 @@ deletePayment paymentId = status badRequest400 text . TL.pack . show $ PaymentNotDeleted ) - -getPaymentsCount :: ActionM () -getPaymentsCount = - Secure.loggedAction (\_ -> do - Number <$> (liftIO . runDb $ P.getPaymentsCount) >>= json - ) |