me
/
guix
Archived
1
0
Fork 0
Code

services: web: Fix long lines. 

* gnu/services/web.scm: Remove a trailing space and wrap long line. No
functional change.
master
Mathieu Othacehe 2022-09-11 15:48:47 +02:00
parent d48c2c7df3
commit 22bfc42fab
No known key found for this signature in database
GPG Key ID: 8354763531769CA6
1 changed files with 36 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

66
gnu/services/web.scm
View File

@ -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