branch master updated: services: web: Fix long lines.

[guix-commits]

This is an automated email from the git hooks/post-receive script.

mothacehe pushed a commit to branch master
in repository guix.

The following commit(s) were added to refs/heads/master by this push:
     new 22bfc42fab services: web: Fix long lines.
22bfc42fab is described below

commit 22bfc42fab107fa9dfc3fdd4561f6991a67a5a10
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Sun Sep 11 15:48:47 2022 +0200

    services: web: Fix long lines.
    
    * gnu/services/web.scm: Remove a trailing space and wrap long line. No
    functional change.
---
 gnu/services/web.scm | 66 ++++++++++++++++++++++++++++------------------------
 1 file changed, 36 insertions(+), 30 deletions(-)

diff --git a/gnu/services/web.scm b/gnu/services/web.scm
index b144cf7076..5bac496f01 100644
--- a/gnu/services/web.scm
+++ b/gnu/services/web.scm
@@ -1393,7 +1393,7 @@ files.")
   (replacement       anonip-configuration-replacement  ;string
                      (default #f))
   (ipv4mask          anonip-configuration-ipv4mask     ;number
-                     (default #f)) 
+                     (default #f))
   (ipv6mask          anonip-configuration-ipv6mask     ;number
                      (default #f))
   (increment         anonip-configuration-increment    ;number
@@ -1425,35 +1425,41 @@ files.")
                          (format #false "~a=~a"
                                  option value))))
                (list)))))
-    (list (shepherd-service
-           (provision (list (symbol-append 'anonip- (string->symbol output))))
-           (requirement '(user-processes))
-           (documentation "Anonimyze the given log file location with anonip.")
-           (start #~(lambda _
-                      (unless (file-exists? #$input)
-                          (mknod #$input 'fifo #o600 0))
-                      (let ((pid (fork+exec-command
-                                  (append
-                                      (list #$(file-append 
(anonip-configuration-anonip config)
-                                                           "/bin/anonip")
-                                            (string-append "--input=" #$input)
-                                            (string-append "--output=" 
#$output))
-                                      (if 
#$(anonip-configuration-skip-private? config)
-                                          '("--skip-private") (list))
-                                    '#$(optional anonip-configuration-column 
"--column")
-                                    '#$(optional anonip-configuration-ipv4mask 
"--ipv4mask")
-                                    '#$(optional anonip-configuration-ipv6mask 
"--ipv6mask")
-                                    '#$(optional 
anonip-configuration-increment "--increment")
-                                    '#$(optional 
anonip-configuration-replacement "--replacement")
-                                    '#$(optional 
anonip-configuration-delimiter "--delimiter")
-                                    '#$(optional anonip-configuration-regex 
"--regex"))
-                                  ;; Run in a UTF-8 locale
-                                  #:environment-variables
-                                  (list (string-append "GUIX_LOCPATH=" 
#$glibc-utf8-locales
-                                                       "/lib/locale")
-                                        "LC_ALL=en_US.utf8"))))
-                        pid)))
-           (stop #~(make-kill-destructor))))))
+    (list
+     (shepherd-service
+      (provision
+       (list (symbol-append 'anonip- (string->symbol output))))
+      (requirement '(user-processes))
+      (documentation
+       "Anonimyze the given log file location with anonip.")
+      (start
+       #~(lambda _
+           (unless (file-exists? #$input)
+             (mknod #$input 'fifo #o600 0))
+           (let ((pid
+                  (fork+exec-command
+                   (append
+                    (list #$(file-append (anonip-configuration-anonip config)
+                                         "/bin/anonip")
+                          (string-append "--input=" #$input)
+                          (string-append "--output=" #$output))
+                    (if #$(anonip-configuration-skip-private? config)
+                        '("--skip-private") (list))
+                    '#$(optional anonip-configuration-column "--column")
+                    '#$(optional anonip-configuration-ipv4mask "--ipv4mask")
+                    '#$(optional anonip-configuration-ipv6mask "--ipv6mask")
+                    '#$(optional anonip-configuration-increment "--increment")
+                    '#$(optional anonip-configuration-replacement
+                                 "--replacement")
+                    '#$(optional anonip-configuration-delimiter "--delimiter")
+                    '#$(optional anonip-configuration-regex "--regex"))
+                   ;; Run in a UTF-8 locale
+                   #:environment-variables
+                   (list (string-append "GUIX_LOCPATH=" #$glibc-utf8-locales
+                                        "/lib/locale")
+                         "LC_ALL=en_US.utf8"))))
+             pid)))
+      (stop #~(make-kill-destructor))))))
 
 (define anonip-service-type
   (service-type