diff options
Diffstat (limited to 'Utility/Scheduled.hs')
| -rw-r--r-- | Utility/Scheduled.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Utility/Scheduled.hs b/Utility/Scheduled.hs index 2b7cae2b6..45914aada 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 candidate > mnum old && mday candidate >= (mday old `mod` minmday)) lastday -> + | maybe True (\old -> mday candidate > mday old && mday candidate >= (mday old `mod` minmday)) lastday -> -- Window only covers current month, -- in case there is a Divisible requirement. Just $ window candidate (endOfMonth candidate) |