diff options
| author | Joris | 2020-01-27 22:07:18 +0100 |
|---|---|---|
| committer | Joris | 2020-01-27 22:07:18 +0100 |
| commit | 79e1d8b0099d61b580a499311f1714b1b7eb07b5 (patch) | |
| tree | a4c35442914b3a59119ddfc1e6c2ce358ecd4758 /server/src/Controller/Payment.hs | |
| parent | 47c2a4d6b68c54eed5f7b45671b1ccaf8c0db200 (diff) | |
| download | budget-79e1d8b0099d61b580a499311f1714b1b7eb07b5.tar.gz budget-79e1d8b0099d61b580a499311f1714b1b7eb07b5.tar.bz2 budget-79e1d8b0099d61b580a499311f1714b1b7eb07b5.zip | |
Show total incom by month in statistics
Diffstat (limited to 'server/src/Controller/Payment.hs')
| -rw-r--r-- | server/src/Controller/Payment.hs | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/server/src/Controller/Payment.hs b/server/src/Controller/Payment.hs index 80c717f..d6aa34f 100644 --- a/server/src/Controller/Payment.hs +++ b/server/src/Controller/Payment.hs @@ -4,7 +4,6 @@ module Controller.Payment , edit , delete , searchCategory - , statistics ) where import Control.Monad.IO.Class (liftIO) @@ -31,7 +30,6 @@ import qualified Persistence.Income as IncomePersistence import qualified Persistence.Payment as PaymentPersistence import qualified Persistence.User as UserPersistence import qualified Secure -import qualified Statistics import qualified Validation.Payment as PaymentValidation list :: Frequency -> Int -> Int -> Text -> ActionM () @@ -116,10 +114,3 @@ searchCategory paymentName = (liftIO $ Query.run (PaymentPersistence.searchCategory paymentName)) >>= S.json ) - -statistics :: ActionM () -statistics = - Secure.loggedAction (\_ -> do - payments <- liftIO $ Query.run PaymentPersistence.listAllPunctual - S.json (Statistics.compute payments) - ) |