diff options
| author | Joris | 2019-11-03 11:28:42 +0100 |
|---|---|---|
| committer | Joris | 2019-11-03 11:28:42 +0100 |
| commit | 9dbb4e6f7c2f0edc1126626e2ff498144c6b9947 (patch) | |
| tree | da352e0861a2786a3a57dab2397ec7d678b5919b /server/src/Job/WeeklyReport.hs | |
| parent | a267f0bb4566389342c3244d3c082dc2453f4615 (diff) | |
| download | budget-9dbb4e6f7c2f0edc1126626e2ff498144c6b9947.tar.gz budget-9dbb4e6f7c2f0edc1126626e2ff498144c6b9947.tar.bz2 budget-9dbb4e6f7c2f0edc1126626e2ff498144c6b9947.zip | |
Show income header
Diffstat (limited to 'server/src/Job/WeeklyReport.hs')
| -rw-r--r-- | server/src/Job/WeeklyReport.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/server/src/Job/WeeklyReport.hs b/server/src/Job/WeeklyReport.hs index 203c4e8..1a478dc 100644 --- a/server/src/Job/WeeklyReport.hs +++ b/server/src/Job/WeeklyReport.hs @@ -19,7 +19,7 @@ weeklyReport conf mbLastExecution = do Nothing -> return () Just lastExecution -> do (payments, incomes, users) <- Query.run $ - (,,) <$> PaymentPersistence.listPunctual <*> IncomePersistence.list <*> UserPersistence.list + (,,) <$> PaymentPersistence.listPunctual <*> IncomePersistence.listAll <*> UserPersistence.list _ <- SendMail.sendMail conf (WeeklyReport.mail conf users payments incomes lastExecution now) return () return now |