me/guix
Archived
1
0
Fork 0
Code Activity

services: cuirass: Add ‘configuration’ action.

Browse source 
* gnu/services/cuirass.scm (cuirass-shepherd-service): Add ‘actions’
field to ‘cuirass’ Shepherd service.

Change-Id: I7feaeebcb89fcd9a1fdbc63f0337e0d63b697793
This commit is contained in:
Ludovic Courtès 2024-01-18 15:00:52 +01:00
parent 8f86cbd5e9
commit 94abfccde9
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 7 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
gnu/services/cuirass.scm
View file

@ -1,6 +1,6 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2016 Mathieu Lirzin <mthl@gnu.org> ;;; 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, 2020 Mathieu Othacehe <m.othacehe@gmail.com>
;;; Copyright © 2017 Jan Nieuwenhuizen <janneke@gnu.org> ;;; Copyright © 2017 Jan Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2018, 2019 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2018, 2019 Ricardo Wurmus <rekado@elephly.net>
@ -136,7 +136,9 @@
(database (cuirass-configuration-database config)) (database (cuirass-configuration-database config))
(port (cuirass-configuration-port config)) (port (cuirass-configuration-port config))
(host (cuirass-configuration-host 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)) (use-substitutes? (cuirass-configuration-use-substitutes? config))
(one-shot? (cuirass-configuration-one-shot? config)) (one-shot? (cuirass-configuration-one-shot? config))
(fallback? (cuirass-configuration-fallback? config)) (fallback? (cuirass-configuration-fallback? config))
@ -149,8 +151,7 @@
(list (string-append #$cuirass "/bin/cuirass") (list (string-append #$cuirass "/bin/cuirass")
"register" "register"
"--cache-directory" #$cache-directory "--cache-directory" #$cache-directory
"--specifications" "--specifications" #$config-file
#$(scheme-file "cuirass-specs.scm" specs)
"--database" #$database "--database" #$database
"--interval" #$(number->string interval) "--interval" #$(number->string interval)
#$@(if parameters #$@(if parameters
@ -172,7 +173,8 @@
#:user #$user #:user #$user
#:group #$group #:group #$group
#:log-file #$main-log-file)) #:log-file #$main-log-file))
(stop #~(make-kill-destructor))) (stop #~(make-kill-destructor))
(actions (list (shepherd-configuration-action config-file))))
,(shepherd-service ,(shepherd-service
(documentation "Run Cuirass web interface.") (documentation "Run Cuirass web interface.")
(provision '(cuirass-web)) (provision '(cuirass-web))