ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-23 19:19:20 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

services: cuirass: Add parameters support.

Browse source 
* gnu/services/cuirass.scm (<cuirass-configuration>)[parameters]: New field.
[zabbix-uri]: Remove it.
(cuirass-shepherd-service): Honor it.
This commit is contained in:
Mathieu Othacehe 2021-02-22 09:26:06 +01:00
parent 61a5305b39
commit 1443e2dd98
No known key found for this signature in database
GPG key ID: 8354763531769CA6
1 changed files with 18 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
gnu/services/cuirass.scm
View file

@ -108,6 +108,8 @@ (define-record-type* <cuirass-configuration>
(default "cuirass"))
(interval cuirass-configuration-interval ;integer (seconds)
(default 60))
(parameters cuirass-configuration-parameters ;string
(default #f))
(remote-server cuirass-configuration-remote-server
(default #f))
(database cuirass-configuration-database ;string
@ -124,8 +126,6 @@ (define-record-type* <cuirass-configuration>
(default #f))
(fallback? cuirass-configuration-fallback? ;boolean
(default #f))
(zabbix-uri cuirass-configuration-zabbix-uri ;string
(default #f))
(extra-options cuirass-configuration-extra-options
(default '())))
@ -138,6 +138,7 @@ (define (cuirass-shepherd-service config)
(user (cuirass-configuration-user config))
(group (cuirass-configuration-group config))
(interval (cuirass-configuration-interval config))
(parameters (cuirass-configuration-parameters config))
(remote-server (cuirass-configuration-remote-server config))
(database (cuirass-configuration-database config))
(port (cuirass-configuration-port config))
@ -146,7 +147,6 @@ (define (cuirass-shepherd-service config)
(use-substitutes? (cuirass-configuration-use-substitutes? config))
(one-shot? (cuirass-configuration-one-shot? config))
(fallback? (cuirass-configuration-fallback? config))
(zabbix-uri (cuirass-configuration-zabbix-uri config))
(extra-options (cuirass-configuration-extra-options config)))
`(,(shepherd-service
(documentation "Run Cuirass.")
@ -159,6 +159,11 @@ (define (cuirass-shepherd-service config)
#$(scheme-file "cuirass-specs.scm" specs)
"--database" #$database
"--interval" #$(number->string interval)
#$@(if parameters
(list (string-append
"--parameters="
parameters))
'())
#$@(if remote-server '("--build-remote") '())
#$@(if use-substitutes? '("--use-substitutes") '())
#$@(if one-shot? '("--one-shot") '())
@ -186,13 +191,13 @@ (define (cuirass-shepherd-service config)
"--port" #$(number->string port)
"--listen" #$host
"--interval" #$(number->string interval)
#$@(if parameters
(list (string-append
"--parameters="
parameters))
'())
#$@(if use-substitutes? '("--use-substitutes") '())
#$@(if fallback? '("--fallback") '())
#$@(if zabbix-uri
(list (string-append
"--zabbix-uri="
zabbix-uri))
'())
#$@extra-options)
#:user #$user
@ -223,6 +228,11 @@ (define (cuirass-shepherd-service config)
"--publish-port="
(number->string publish-port)))
'())
#$@(if parameters
(list (string-append
"--parameters="
parameters))
'())
#$@(if trigger-url
(list
(string-append