From aed019b646603171908e6d63476fe093da36ae0a Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Wed, 12 Mar 2025 11:32:54 +0100 Subject: services: shepherd: Factorize ‘trigger’ action. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit * gnu/services/shepherd.scm (shepherd-trigger-action): New variable. * gnu/services/admin.scm (log-cleanup-shepherd-services) (unattended-upgrade-shepherd-services): Use it. * gnu/services/backup.scm (restic-backup-job->shepherd-service): Use it. * gnu/home/services/shepherd.scm: Re-export ‘shepherd-trigger-action’. Reviewed-by: Maxim Cournoyer Change-Id: I834b5b9b61c78f012ee9306df6cf4fd8a93dd6d2 --- gnu/services/admin.scm | 10 ++-------- 1 file changed, 2 insertions(+), 8 deletions(-) (limited to 'gnu/services/admin.scm') diff --git a/gnu/services/admin.scm b/gnu/services/admin.scm index 2a11a4f4f10..726ca5f9182 100644 --- a/gnu/services/admin.scm +++ b/gnu/services/admin.scm @@ -404,10 +404,7 @@ This service is deprecated and slated for removal after 2025-06-15.") schedule) (command '(#$program)))) (stop #~(make-timer-destructor)) - (actions (list (shepherd-action - (name 'trigger) - (documentation "Trigger log cleanup.") - (procedure #~trigger-timer)))) + (actions (list shepherd-trigger-action)) (documentation "Periodically delete old log files.")))))) (define log-cleanup-service-type @@ -671,10 +668,7 @@ which lets you search for packages that provide a given file.") ;; again. #:wait-for-termination? #t)) (stop #~(make-timer-destructor)) - (actions (list (shepherd-action - (name 'trigger) - (documentation "Trigger unattended system upgrade.") - (procedure #~trigger-timer))))))) + (actions (list shepherd-trigger-action))))) (define unattended-upgrade-service-type (service-type -- cgit v1.3