services: cuirass: Remove unneeded conditional.
* gnu/services/cuirass.scm (cuirass-shepherd-service): Remove unneeded 'and'.
This commit is contained in:
parent
7b7e5b88fc
commit
46e552cb0f
|
@ -81,8 +81,6 @@
|
||||||
|
|
||||||
(define (cuirass-shepherd-service config)
|
(define (cuirass-shepherd-service config)
|
||||||
"Return a <shepherd-service> for the Cuirass service with CONFIG."
|
"Return a <shepherd-service> for the Cuirass service with CONFIG."
|
||||||
(and
|
|
||||||
(cuirass-configuration? config)
|
|
||||||
(let ((cuirass (cuirass-configuration-cuirass config))
|
(let ((cuirass (cuirass-configuration-cuirass config))
|
||||||
(cache-directory (cuirass-configuration-cache-directory config))
|
(cache-directory (cuirass-configuration-cache-directory config))
|
||||||
(web-log-file (cuirass-configuration-web-log-file config))
|
(web-log-file (cuirass-configuration-web-log-file config))
|
||||||
|
@ -144,7 +142,7 @@
|
||||||
#:user #$user
|
#:user #$user
|
||||||
#:group #$group
|
#:group #$group
|
||||||
#:log-file #$web-log-file))
|
#:log-file #$web-log-file))
|
||||||
(stop #~(make-kill-destructor)))))))
|
(stop #~(make-kill-destructor))))))
|
||||||
|
|
||||||
(define (cuirass-account config)
|
(define (cuirass-account config)
|
||||||
"Return the user accounts and user groups for CONFIG."
|
"Return the user accounts and user groups for CONFIG."
|
||||||
|
|
Loading…
Reference in New Issue