summary refs log tree commit diff
path: root/gnu/services
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2024-01-18 15:00:52 +0100
committerLudovic Courtès <ludo@gnu.org>2024-01-24 23:28:37 +0100
commit94abfccde9c22adf16a265ff98f31cc36bd8a622 (patch)
tree7d7b15d5d6300fec0dd0a8fd7e5d84f927d736ac /gnu/services
parent8f86cbd5e95dca6fa6795e05eb0b316219d0a3ce (diff)
downloadguix-94abfccde9c22adf16a265ff98f31cc36bd8a622.tar.gz
services: cuirass: Add ‘configuration’ action.
* gnu/services/cuirass.scm (cuirass-shepherd-service): Add ‘actions’
field to ‘cuirass’ Shepherd service.

Change-Id: I7feaeebcb89fcd9a1fdbc63f0337e0d63b697793
Diffstat (limited to 'gnu/services')
-rw-r--r--gnu/services/cuirass.scm12
1 files changed, 7 insertions, 5 deletions
diff --git a/gnu/services/cuirass.scm b/gnu/services/cuirass.scm
index fcbd5e08a5..bd3a48f629 100644
--- a/gnu/services/cuirass.scm
+++ b/gnu/services/cuirass.scm
@@ -1,6 +1,6 @@
 ;;; GNU Guix --- Functional package management for GNU
 ;;; Copyright © 2016 Mathieu Lirzin <mthl@gnu.org>
-;;; Copyright © 2016-2023 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright © 2016-2024 Ludovic Courtès <ludo@gnu.org>
 ;;; Copyright © 2017, 2020 Mathieu Othacehe <m.othacehe@gmail.com>
 ;;; Copyright © 2017 Jan Nieuwenhuizen <janneke@gnu.org>
 ;;; Copyright © 2018, 2019 Ricardo Wurmus <rekado@elephly.net>
@@ -136,7 +136,9 @@
         (database         (cuirass-configuration-database config))
         (port             (cuirass-configuration-port config))
         (host             (cuirass-configuration-host config))
-        (specs            (cuirass-configuration-specifications config))
+        (config-file      (scheme-file
+                           "cuirass-specs.scm"
+                           (cuirass-configuration-specifications config)))
         (use-substitutes? (cuirass-configuration-use-substitutes? config))
         (one-shot?        (cuirass-configuration-one-shot? config))
         (fallback?        (cuirass-configuration-fallback? config))
@@ -149,8 +151,7 @@
                   (list (string-append #$cuirass "/bin/cuirass")
                         "register"
                         "--cache-directory" #$cache-directory
-                        "--specifications"
-                        #$(scheme-file "cuirass-specs.scm" specs)
+                        "--specifications" #$config-file
                         "--database" #$database
                         "--interval" #$(number->string interval)
                         #$@(if parameters
@@ -172,7 +173,8 @@
                   #:user #$user
                   #:group #$group
                   #:log-file #$main-log-file))
-        (stop #~(make-kill-destructor)))
+        (stop #~(make-kill-destructor))
+        (actions (list (shepherd-configuration-action config-file))))
       ,(shepherd-service
         (documentation "Run Cuirass web interface.")
         (provision '(cuirass-web))