me
/
guix
Archived
1
0
Fork 0
Code

services: cuirass: Adapt to Cuirass 1.0. 

* gnu/services/cuirass.scm (cuirass-shepherd-service,
cuirass-remote-worker-shepherd-service): Adapt to Cuirass 1.0.
master
Mathieu Othacehe 2021-03-23 16:43:12 +01:00
parent eee69da3a5
commit eda735fb61
No known key found for this signature in database
GPG Key ID: 8354763531769CA6
1 changed files with 7 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
gnu/services/cuirass.scm
View File

@ -143,6 +143,7 @@
(requirement '(guix-daemon postgres postgres-roles networking)) (requirement '(guix-daemon postgres postgres-roles networking))
(start #~(make-forkexec-constructor (start #~(make-forkexec-constructor
(list (string-append #$cuirass "/bin/cuirass") (list (string-append #$cuirass "/bin/cuirass")
"register"
"--cache-directory" #$cache-directory "--cache-directory" #$cache-directory
"--specifications" "--specifications"
#$(scheme-file "cuirass-specs.scm" specs) #$(scheme-file "cuirass-specs.scm" specs)
@ -174,19 +175,15 @@
(requirement '(cuirass)) (requirement '(cuirass))
(start #~(make-forkexec-constructor (start #~(make-forkexec-constructor
(list (string-append #$cuirass "/bin/cuirass") (list (string-append #$cuirass "/bin/cuirass")
"--cache-directory" #$cache-directory "web"
"--database" #$database "--database" #$database
"--web"
"--port" #$(number->string port)
"--listen" #$host "--listen" #$host
"--interval" #$(number->string interval) "--port" #$(number->string port)
#$@(if parameters #$@(if parameters
(list (string-append (list (string-append
"--parameters=" "--parameters="
parameters)) parameters))
'()) '())
#$@(if use-substitutes? '("--use-substitutes") '())
#$@(if fallback? '("--fallback") '())
#$@extra-options) #$@extra-options)
#:user #$user #:user #$user
@ -203,7 +200,8 @@
(provision '(cuirass-remote-server)) (provision '(cuirass-remote-server))
(requirement '(avahi-daemon cuirass)) (requirement '(avahi-daemon cuirass))
(start #~(make-forkexec-constructor (start #~(make-forkexec-constructor
(list (string-append #$cuirass "/bin/remote-server") (list (string-append #$cuirass "/bin/cuirass")
"remote-server"
(string-append "--database=" #$database) (string-append "--database=" #$database)
(string-append "--cache=" #$cache) (string-append "--cache=" #$cache)
(string-append "--user=" #$user) (string-append "--user=" #$user)
@ -347,7 +345,8 @@ CONFIG."
(provision '(cuirass-remote-worker)) (provision '(cuirass-remote-worker))
(requirement '(avahi-daemon guix-daemon networking)) (requirement '(avahi-daemon guix-daemon networking))
(start #~(make-forkexec-constructor (start #~(make-forkexec-constructor
(list (string-append #$cuirass "/bin/remote-worker") (list (string-append #$cuirass "/bin/cuirass")
"remote-worker"
(string-append "--workers=" (string-append "--workers="
#$(number->string workers)) #$(number->string workers))
#$@(if server #$@(if server