From f009dd08ae9afaf81b08f84dcc4a62b9ac14cadf Mon Sep 17 00:00:00 2001 From: Pierre Neidhardt Date: Wed, 23 May 2018 16:58:43 +0200 Subject: [PATCH] config/cron: Update with mcron 1.1.1 fixes --- .config/cron/job.guile | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) diff --git a/.config/cron/job.guile b/.config/cron/job.guile index 1b2a6f88..8277d2e6 100644 --- a/.config/cron/job.guile +++ b/.config/cron/job.guile @@ -10,14 +10,10 @@ (if (< currency-time (- current-time seconds-in-a-day)) ;; Use next-minute to avoid overwhelming the system in case of failure. (next-minute) - ;; TODO: The following does not work while it should. Report upstream. - ;; (next-hour-from (next-day) (list (tm:hour (localtime (current-time))))) - (+ (next-minute) (- 86400 (- current-time currency-time)))))) + (next-hour-from (next-day) (list (tm:hour (localtime currency-time))))))) ;; A string is nicer than Scheme code for `mcron --schedule' output. ;; Otherwise we could return '(system* "units_cur" currency-file) ;; and use job's 3rd argument as a description. (string-append "units_cur " currency-file)) -(job '(next-hour) - ;; '(next-hour '(3)) is broken in mcron 1.1. - "updatedb-local") +(job '(next-hour '(3)) "updatedb-local")