diff options
Diffstat (limited to 'src/Utility/Emacs.hs')
-rw-r--r-- | src/Utility/Emacs.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Utility/Emacs.hs b/src/Utility/Emacs.hs index 34a7ca7..f42ea0c 100644 --- a/src/Utility/Emacs.hs +++ b/src/Utility/Emacs.hs @@ -37,7 +37,7 @@ staggeredReminders :: Reminder -> Maybe [Reminder] staggeredReminders r = sequence $ foldr step [] SremConfig.intervals where step minsBefore rems = - makeReminder (h minsBefore) (m minsBefore) (getReminderText r) : rems + makeReminder' (h minsBefore) (m minsBefore) (getReminderText r) : rems h m = if m > getReminderMinute r then getReminderHour r - 1 else getReminderHour r |