TakeV/guix
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

gnu: services: web: Cleanup whitespace.

Browse source 
Replace tabs with spaces, and delete trailing whitespace.

* gnu/services/web.scm: Cleanup whitespace.
This commit is contained in:
Christopher Baines 2021-03-30 19:49:17 +01:00
parent 9ece9f162b
commit 190912cb8e
No known key found for this signature in database
GPG key ID: 5E28A33B0B84F577
1 changed files with 17 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

34
gnu/services/web.scm
View file

@ -840,8 +840,8 @@ (define fcgiwrap-shepherd-service
(requirement '(networking)) (requirement '(networking))
(start #~(make-forkexec-constructor (start #~(make-forkexec-constructor
'(#$(file-append package "/sbin/fcgiwrap") '(#$(file-append package "/sbin/fcgiwrap")
"-s" #$socket) "-s" #$socket)
#:user #$user #:group #$group)) #:user #$user #:group #$group))
(stop #~(make-kill-destructor))))))) (stop #~(make-kill-destructor)))))))
(define fcgiwrap-activation (define fcgiwrap-activation
@ -863,7 +863,7 @@ (define fcgiwrap-service-type
(extensions (extensions
(list (service-extension shepherd-root-service-type (list (service-extension shepherd-root-service-type
fcgiwrap-shepherd-service) fcgiwrap-shepherd-service)
(service-extension account-service-type (service-extension account-service-type
fcgiwrap-accounts) fcgiwrap-accounts)
(service-extension activation-service-type (service-extension activation-service-type
fcgiwrap-activation))) fcgiwrap-activation)))
@ -1946,24 +1946,24 @@ (define agate-shepherd-service
(documentation "Run the agate Gemini server.") (documentation "Run the agate Gemini server.")
(start (let ((agate (file-append package "/bin/agate"))) (start (let ((agate (file-append package "/bin/agate")))
#~(make-forkexec-constructor #~(make-forkexec-constructor
(list #$agate (list #$agate
"--content" #$content "--content" #$content
"--cert" #$cert "--cert" #$cert
"--key" #$key "--key" #$key
"--addr" #$@addr "--addr" #$@addr
#$@(if lang #$@(if lang
(list "--lang" lang) (list "--lang" lang)
'()) '())
#$@(if hostname #$@(if hostname
(list "--hostname" hostname) (list "--hostname" hostname)
'()) '())
#$@(if silent? '("--silent") '()) #$@(if silent? '("--silent") '())
#$@(if serve-secret? '("--serve-secret") '()) #$@(if serve-secret? '("--serve-secret") '())
#$@(if log-ip? '("--log-ip") '())) #$@(if log-ip? '("--log-ip") '()))
#:user #$user #:group #$group #:user #$user #:group #$group
#:log-file #$log-file))) #:log-file #$log-file)))
(stop #~(make-kill-destructor))))))) (stop #~(make-kill-destructor)))))))
(define agate-accounts (define agate-accounts
(match-lambda (match-lambda
(($ <agate-configuration> _ _ _ _ _ (($ <agate-configuration> _ _ _ _ _