ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-25 05:48:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

services: cuirass: Remove unneeded conditional.

Browse source 
* gnu/services/cuirass.scm (cuirass-shepherd-service): Remove unneeded 'and'.
This commit is contained in:
Ludovic Courtès 2019-09-23 22:58:50 +02:00
parent 7b7e5b88fc
commit 46e552cb0f
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 59 additions and 61 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
gnu/services/cuirass.scm
View file

@ -81,8 +81,6 @@ (define-record-type* <cuirass-configuration>
(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 @@ (define (cuirass-shepherd-service config)
#: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."