aboutsummaryrefslogtreecommitdiff
path: root/Utility/Scheduled.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2014-04-11 14:34:09 -0400
committerGravatar Joey Hess <joey@kitenet.net>2014-04-11 14:34:09 -0400
commit1da5429a3356a93b2628232ebf442a735b20f2af (patch)
tree283d9479118c54c7aecfffa3d0206f82ebd6ecab /Utility/Scheduled.hs
parent803d6ad2c41db8a3852702b94d2505ab30eb5626 (diff)
assistant: Fix high CPU usage triggered when a monthly fsck is scheduled, and the last time the job ran was a day of the month > 12. This caused a runaway loop. Thanks to Anarcat for his assistance, and to Maximiliano Curia for identifying the cause of this bug.
Diffstat (limited to 'Utility/Scheduled.hs')
-rw-r--r--Utility/Scheduled.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Utility/Scheduled.hs b/Utility/Scheduled.hs
index 11e3b569b..e4b03aac4 100644
--- a/Utility/Scheduled.hs
+++ b/Utility/Scheduled.hs
@@ -121,7 +121,7 @@ calcNextTime (Schedule recurrance scheduledtime) lasttime currenttime
| otherwise -> skip 1
Monthly Nothing
| afterday -> skip 1
- | maybe True (\old -> mnum day > mday old && mday day >= (mday old `mod` minmday)) lastday ->
+ | maybe True (\old -> mnum day > mnum old && mday day >= (mday old `mod` minmday)) lastday ->
-- Window only covers current month,
-- in case there is a Divisible requirement.
Just $ window day (endOfMonth day)