05/07: services: hpcguix-web: Add ‘configuration’ action.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 401755536787c4ae50dec5733a162b6e4ae1a569
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Thu Dec 14 22:31:37 2023 +0100

    services: hpcguix-web: Add ‘configuration’ action.
    
    * gnu/services/web.scm (hpcguix-web-shepherd-service): Define
    ‘config-file’ and use it.  Add ‘actions’ field.
    
    Change-Id: I085df403270039ede3c13f21a5d60682c7510e2e
---
 gnu/services/web.scm | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/gnu/services/web.scm b/gnu/services/web.scm
index 9fd2a3f742..55cc095d90 100644
--- a/gnu/services/web.scm
+++ b/gnu/services/web.scm
@@ -1229,8 +1229,9 @@ a webserver.")
          (frequency 'weekly))))
 
 (define (hpcguix-web-shepherd-service config)
-  (let ((specs       (hpcguix-web-configuration-specs config))
-        (hpcguix-web (hpcguix-web-package config)))
+  (let* ((specs       (hpcguix-web-configuration-specs config))
+         (config-file (and specs (scheme-file "hpcguix-web.scm" specs)))
+         (hpcguix-web (hpcguix-web-package config)))
     (with-imported-modules (source-module-closure
                             '((gnu build shepherd)))
       (shepherd-service
@@ -1246,9 +1247,7 @@ a webserver.")
                        #$(number->string
                           (hpcguix-web-configuration-port config))
                        #$@(if specs
-                              #~((string-append "--config="
-                                                #$(scheme-file
-                                                   "hpcguix-web.scm" specs)))
+                              #~((string-append "--config=" #$config-file))
                               #~()))
                  #:user "hpcguix-web"
                  #:group "hpcguix-web"
@@ -1256,7 +1255,8 @@ a webserver.")
                  (list "XDG_CACHE_HOME=/var/cache/guix/web"
                        "SSL_CERT_DIR=/etc/ssl/certs")
                  #:log-file #$%hpcguix-web-log-file))
-       (stop #~(make-kill-destructor))))))
+       (stop #~(make-kill-destructor))
+       (actions (list (shepherd-configuration-action config-file)))))))
 
 (define hpcguix-web-service-type
   (service-type