summaryrefslogtreecommitdiff
path: root/gnu/services
diff options
context:
space:
mode:
authorMathieu Lirzin <mthl@gnu.org>2016-12-01 20:41:08 +0100
committerMathieu Lirzin <mthl@gnu.org>2016-12-15 22:50:27 +0100
commit57aa94bd7e7d530e52356723c8f1dbf727144b25 (patch)
tree84e9c10847e0db8c3bd4691f09df1d69ad6a9129 /gnu/services
parent44ccd9622eb4a0083d4f833a61172973390ca62b (diff)
services: cuirass: Put specifications in the store.
* gnu/services/cuirass.scm (<cuirass-configuration>): Change type of 'specifications' field to an alist to match the documentation example. (cuirass-shepherd-service): Store the provided specifications in a file. Use that file as the "--specification" argument.
Diffstat (limited to 'gnu/services')
-rw-r--r--gnu/services/cuirass.scm12
1 files changed, 7 insertions, 5 deletions
diff --git a/gnu/services/cuirass.scm b/gnu/services/cuirass.scm
index d843c07335..4975a7e16e 100644
--- a/gnu/services/cuirass.scm
+++ b/gnu/services/cuirass.scm
@@ -52,8 +52,8 @@
(default 60))
(database cuirass-configuration-database ;string (file-name)
(default "/var/run/cuirass/cuirass.db"))
- (specifications cuirass-configuration-specifications ;string (file-name)
- (default ""))
+ (specifications cuirass-configuration-specifications ;specification-alist
+ (default '()))
(use-substitutes? cuirass-configuration-use-substitutes? ;boolean
(default #f))
(one-shot? cuirass-configuration-one-shot? ;boolean
@@ -66,7 +66,7 @@
(let ((cache-directory (cuirass-configuration-cache-directory config))
(interval (cuirass-configuration-interval config))
(database (cuirass-configuration-database config))
- (specifications (cuirass-configuration-specifications config))
+ (specs (cuirass-configuration-specifications config))
(use-substitutes? (cuirass-configuration-use-substitutes? config))
(one-shot? (cuirass-configuration-one-shot? config)))
(list (shepherd-service
@@ -78,9 +78,11 @@
#$@(if (string=? "" cache-directory)
'()
(list "--cache-directory" cache-directory))
- #$@(if (string=? "" specifications)
+ #$@(if (null? specs)
'()
- (list "--specifications" specifications))
+ (let ((str (format #f "'~S" specs)))
+ (list "--specifications"
+ (plain-file "specs.scm" str))))
"--database" #$database
"--interval" #$(number->string interval)
#$@(if use-substitutes? '("--use-substitutes") '())