diff options
| author | Ricardo Wurmus <rekado@elephly.net> | 2019-08-26 16:30:21 +0200 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2019-08-26 22:21:10 +0200 |
| commit | 159b5e1f8a758e5754ea36929990f09436f4de47 (patch) | |
| tree | 0674476af4f9d5c512ff8e0caba0c2fdaee9494c /gnu/services/cuirass.scm | |
| parent | ff33283c301d414c7c2c281162b851a1a108715d (diff) | |
| download | guix-patches-159b5e1f8a758e5754ea36929990f09436f4de47.tar guix-patches-159b5e1f8a758e5754ea36929990f09436f4de47.tar.gz | |
services: cuirass: Split into two separate services.
* gnu/services/cuirass.scm (cuirass-shepherd-service): Return two shepherd
services, one for the web interface, another for building packages.
Diffstat (limited to 'gnu/services/cuirass.scm')
| -rw-r--r-- | gnu/services/cuirass.scm | 24 |
1 files changed, 22 insertions, 2 deletions
diff --git a/gnu/services/cuirass.scm b/gnu/services/cuirass.scm index f92d33bf94..138a5cf67c 100644 --- a/gnu/services/cuirass.scm +++ b/gnu/services/cuirass.scm @@ -106,8 +106,6 @@ #$(scheme-file "cuirass-specs.scm" specs) "--database" #$database "--ttl" #$(string-append (number->string ttl) "s") - "--port" #$(number->string port) - "--listen" #$host "--interval" #$(number->string interval) #$@(if use-substitutes? '("--use-substitutes") '()) #$@(if one-shot? '("--one-shot") '()) @@ -121,6 +119,28 @@ #:user #$user #:group #$group #:log-file #$log-file)) + (stop #~(make-kill-destructor))) + (shepherd-service + (documentation "Run Cuirass web interface.") + (provision '(cuirass-web)) + (requirement '(guix-daemon networking)) + (start #~(make-forkexec-constructor + (list (string-append #$cuirass "/bin/cuirass") + "--cache-directory" #$cache-directory + "--specifications" + #$(scheme-file "cuirass-specs.scm" specs) + "--database" #$database + "--ttl" #$(string-append (number->string ttl) "s") + "--web" + "--port" #$(number->string port) + "--listen" #$host + "--interval" #$(number->string interval) + #$@(if use-substitutes? '("--use-substitutes") '()) + #$@(if fallback? '("--fallback") '())) + + #:user #$user + #:group #$group + #:log-file #$log-file)) (stop #~(make-kill-destructor))))))) (define (cuirass-account config) |