01/06: services: ganeti: Label mcron jobs.

[guix-commits]

mbakke pushed a commit to branch master
in repository guix.

commit c97de4a989f73addcc5eae23f90084575fe83357
Author: Marius Bakke <marius@gnu.org>
AuthorDate: Sun Dec 25 12:02:05 2022 +0100

    services: ganeti: Label mcron jobs.
    
    * gnu/services/ganeti.scm (ganeti-watcher-jobs): Label job as 
"ganeti-watcher".
    (ganeti-cleaner-jobs): Labels jobs as "ganeti master cleaner" and "ganeti 
node
    cleaner".
---
 gnu/services/ganeti.scm | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/gnu/services/ganeti.scm b/gnu/services/ganeti.scm
index f8127e8721..f4fec3833e 100644
--- a/gnu/services/ganeti.scm
+++ b/gnu/services/ganeti.scm
@@ -683,7 +683,8 @@ information to OS install scripts or instances.")))
                    #~(#$schedule))
                   ((? list?)
                    #~('#$schedule)))
-             #$(ganeti-watcher-command config))))))
+             #$(ganeti-watcher-command config)
+             "ganeti-watcher")))))
 
 (define ganeti-watcher-service-type
   (service-type (name 'ganeti-watcher)
@@ -725,7 +726,8 @@ is declared offline by known master candidates.")))
                    #~('#$master-schedule)))
              (lambda ()
               (system* #$(file-append ganeti "/sbin/ganeti-cleaner")
-                       "master")))
+                       "master"))
+             "ganeti master cleaner")
       #~(job #$@(match node-schedule
                   ((? string?)
                    #~(#$node-schedule))
@@ -733,7 +735,8 @@ is declared offline by known master candidates.")))
                    #~('#$node-schedule)))
              (lambda ()
                (system* #$(file-append ganeti "/sbin/ganeti-cleaner")
-                        "node")))))))
+                        "node"))
+             "ganeti node cleaner")))))
 
 (define ganeti-cleaner-service-type
   (service-type (name 'ganeti-cleaner)