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/Statistics.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/Statistics.hs')
-rw-r--r-- | server/src/Controller/Statistics.hs | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/server/src/Controller/Statistics.hs b/server/src/Controller/Statistics.hs new file mode 100644 index 0000000..500c93c --- /dev/null +++ b/server/src/Controller/Statistics.hs @@ -0,0 +1,21 @@ +module Controller.Statistics + ( paymentsAndIncomes + ) where + +import Control.Monad.IO.Class (liftIO) +import Web.Scotty (ActionM) +import qualified Web.Scotty as S + +import qualified Model.Query as Query +import qualified Persistence.Income as IncomePersistence +import qualified Persistence.Payment as PaymentPersistence +import qualified Secure +import qualified Statistics + +paymentsAndIncomes :: ActionM () +paymentsAndIncomes = + Secure.loggedAction (\_ -> do + payments <- liftIO $ Query.run PaymentPersistence.listAllPunctual + incomes <- liftIO $ Query.run IncomePersistence.listAll + S.json (Statistics.paymentsAndIncomes payments incomes) + ) |