[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[bug#47504] [PATCH 1/2] gnu: services: web: Cleanup whitespace.
From: |
Christopher Baines |
Subject: |
[bug#47504] [PATCH 1/2] gnu: services: web: Cleanup whitespace. |
Date: |
Tue, 30 Mar 2021 22:34:36 +0100 |
Replace tabs with spaces, and delete trailing whitespace.
* gnu/services/web.scm: Cleanup whitespace.
---
gnu/services/web.scm | 34 +++++++++++++++++-----------------
1 file changed, 17 insertions(+), 17 deletions(-)
diff --git a/gnu/services/web.scm b/gnu/services/web.scm
index aa688a4328..1aad695c8b 100644
--- a/gnu/services/web.scm
+++ b/gnu/services/web.scm
@@ -840,8 +840,8 @@ of index files."
(requirement '(networking))
(start #~(make-forkexec-constructor
'(#$(file-append package "/sbin/fcgiwrap")
- "-s" #$socket)
- #:user #$user #:group #$group))
+ "-s" #$socket)
+ #:user #$user #:group #$group))
(stop #~(make-kill-destructor)))))))
(define fcgiwrap-activation
@@ -863,7 +863,7 @@ of index files."
(extensions
(list (service-extension shepherd-root-service-type
fcgiwrap-shepherd-service)
- (service-extension account-service-type
+ (service-extension account-service-type
fcgiwrap-accounts)
(service-extension activation-service-type
fcgiwrap-activation)))
@@ -1946,24 +1946,24 @@ root=/srv/gemini
(documentation "Run the agate Gemini server.")
(start (let ((agate (file-append package "/bin/agate")))
#~(make-forkexec-constructor
- (list #$agate
- "--content" #$content
- "--cert" #$cert
- "--key" #$key
- "--addr" #$@addr
+ (list #$agate
+ "--content" #$content
+ "--cert" #$cert
+ "--key" #$key
+ "--addr" #$@addr
#$@(if lang
(list "--lang" lang)
'())
- #$@(if hostname
- (list "--hostname" hostname)
- '())
- #$@(if silent? '("--silent") '())
- #$@(if serve-secret? '("--serve-secret") '())
- #$@(if log-ip? '("--log-ip") '()))
- #:user #$user #:group #$group
- #:log-file #$log-file)))
+ #$@(if hostname
+ (list "--hostname" hostname)
+ '())
+ #$@(if silent? '("--silent") '())
+ #$@(if serve-secret? '("--serve-secret") '())
+ #$@(if log-ip? '("--log-ip") '()))
+ #:user #$user #:group #$group
+ #:log-file #$log-file)))
(stop #~(make-kill-destructor)))))))
-
+
(define agate-accounts
(match-lambda
(($ <agate-configuration> _ _ _ _ _
--
2.30.1