diff options
| author | Joris | 2017-11-19 00:20:25 +0100 |
|---|---|---|
| committer | Joris | 2017-11-19 00:20:25 +0100 |
| commit | 7194cddb28656c721342c2ef604f9f9fb0692960 (patch) | |
| tree | 5b8c8562c9a1680aa315b4b7e10a3a7c22900863 /server/src/Job/Daemon.hs | |
| parent | 42e94a45e26f40edc3ad71b1e77a4bf47c13fd3d (diff) | |
| download | budget-7194cddb28656c721342c2ef604f9f9fb0692960.tar.gz budget-7194cddb28656c721342c2ef604f9f9fb0692960.tar.bz2 budget-7194cddb28656c721342c2ef604f9f9fb0692960.zip | |
Show payment count and partition
- Also fixes exceedingPayer in back by using only punctual payments
Diffstat (limited to 'server/src/Job/Daemon.hs')
| -rw-r--r-- | server/src/Job/Daemon.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/server/src/Job/Daemon.hs b/server/src/Job/Daemon.hs index 26977d1..d8cd522 100644 --- a/server/src/Job/Daemon.hs +++ b/server/src/Job/Daemon.hs @@ -14,7 +14,7 @@ import Job.Model (actualizeLastCheck, actualizeLastExecution, import Job.MonthlyPayment (monthlyPayment) import Job.WeeklyReport (weeklyReport) import qualified Model.Query as Query -import Utils.Time (belongToCurrentMonth, belongToCurrentWeek) +import Util.Time (belongToCurrentMonth, belongToCurrentWeek) runDaemons :: Conf -> IO () runDaemons conf = do |