01/02: gnu: services: web: Cleanup whitespace.

[guix-commits]

cbaines pushed a commit to branch master
in repository guix.

commit 190912cb8e4011c7a4ffe6c2baa69d7b39139580
Author: Christopher Baines <mail@cbaines.net>
AuthorDate: Tue Mar 30 19:49:17 2021 +0100

    gnu: services: web: Cleanup whitespace.
    
    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 aa688a4..1aad695 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> _ _ _ _ _