From be28e14d3e33e040fdddadd59c01e284d2776f88 Mon Sep 17 00:00:00 2001 From: Ray Miller Date: Fri, 4 Jul 2025 16:01:05 +0100 Subject: [PATCH] Clearer logging --- ordo/core.scm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/ordo/core.scm b/ordo/core.scm index b7418e9..2488987 100644 --- a/ordo/core.scm +++ b/ordo/core.scm @@ -66,6 +66,8 @@ this program. If not, see . (action #:init-keyword #:action #:getter task-action) (args #:init-keyword #:args #:init-form (list) #:getter task-args) (trigger #:init-keyword #:trigger #:init-form (list) #:getter task-trigger) + ;; TODO: replace the exception handler with a continue-on-error? boolean, and construct + ;; an exception handler that logs the error along with the task name (exception-handler #:init-keyword #:exception-handler #:init-value #f #:getter task-exception-handler)) (define (task . args) (apply make args)) @@ -77,9 +79,9 @@ this program. If not, see . (let ((result ((task-action task) conn))) (cond ((equal? result #f) - (log-msg 'NOTICE (task-name task) " - no change")) + (log-msg 'NOTICE (task-name task) " - OK")) ((equal? result #t) - (log-msg 'NOTICE (task-name task) " - ok") + (log-msg 'NOTICE (task-name task) " - CHANGED") (for-each schedule-handler! (task-trigger task))) (else (log-msg 'NOTICE (task-name task) " - " result))))))