02/02: sysadmin: Add Bioconductor channel updater.

[Ricardo Wurmus]

rekado pushed a commit to branch master
in repository maintenance.

commit 687dd846b10eba8d665529c36771c09bcf3699b6
Author: Ricardo Wurmus <rekado@elephly.net>
AuthorDate: Wed Jan 17 13:34:58 2024 +0100

    sysadmin: Add Bioconductor channel updater.
    
    * hydra/modules/sysadmin/services.scm (guix-bioc-job,
    %guix-bioc-accounts, guix-bioc-service-type): New variables.
    * hydra/berlin.scm [services]: Add guix-bioc-service-type.
---
 hydra/berlin.scm                    |  5 +++--
 hydra/modules/sysadmin/services.scm | 33 +++++++++++++++++++++++++++++++++
 2 files changed, 36 insertions(+), 2 deletions(-)

diff --git a/hydra/berlin.scm b/hydra/berlin.scm
index b6c79bd..00affd8 100644
--- a/hydra/berlin.scm
+++ b/hydra/berlin.scm
@@ -1,7 +1,7 @@
 ;; OS configuration for "berlin", the frontend of the compile farm
 ;; hosted at the MDC.
 ;; Copyright © 2016-2024 Ludovic Courtès <ludo@gnu.org>
-;; Copyright © 2017, 2018, 2019, 2020, 2021, 2022 Ricardo Wurmus 
<rekado@elephly.net>
+;; Copyright © 2017-2024 Ricardo Wurmus <rekado@elephly.net>
 ;; Copyright © 2019, 2021 Julien Lepiller <julien@lepiller.eu>
 ;; Copyright © 2020, 2021 Florian Pelz <pelzflorian@pelzflorian.de>
 ;; Copyright © 2020, 2021 Mathieu Othacehe <othacehe@gnu.org>
@@ -612,8 +612,9 @@ An incremental send is attempted if a PARENT snapshot is 
provided."
              ;; For the Mumi mailer queue
              (service redis-service-type)
 
-             ;; Guix CRAN updater
+             ;; Guix CRAN and Bioconductor channel updater
              (service guix-cran-service-type)
+             (service guix-bioc-service-type)
 
              ;; Stop Cuirass when disk space is low.
              (service disk-space-watchdog-service-type
diff --git a/hydra/modules/sysadmin/services.scm 
b/hydra/modules/sysadmin/services.scm
index 4cddd7b..f68d9db 100644
--- a/hydra/modules/sysadmin/services.scm
+++ b/hydra/modules/sysadmin/services.scm
@@ -1366,3 +1366,36 @@ to a selected directory.")
                 (description
                  "Update the Guix CRAN channel")
                 (default-value #f)))
+
+;;;
+;;; Guix Bioconductor channel
+;;;
+
+;; Run two hours after the guix-cran-job.
+(define guix-bioc-job
+  #~(job "0 6 * * *" (string-append
+                      #$(file-append guix-cran-scripts "/bin/update.sh")
+                      " bioc")
+         #:user "guix-bioc"))
+
+(define %guix-bioc-accounts
+  (list
+   (user-group (name "guix-bioc") (system? #t))
+   (user-account
+    (name "guix-bioc")
+    (group "guix-bioc")
+    (system? #t)
+    (comment "User for Guix Bioconductor updates")
+    (home-directory "/var/lib/guix-bioc")
+    (shell (file-append shadow "/sbin/nologin")))))
+
+(define-public guix-bioc-service-type
+  (service-type (name 'guix-bioc)
+                (extensions
+                 (list (service-extension mcron-service-type
+                                          (const (list guix-bioc-job)))
+                       (service-extension account-service-type
+                                          (const %guix-bioc-accounts))))
+                (description
+                 "Update the Guix Bioconductor channel")
+                (default-value #f)))