ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-25 20:19:18 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

services: web: Fix long lines.

Browse source 
* gnu/services/web.scm: Remove a trailing space and wrap long line. No
functional change.
This commit is contained in:
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

18
gnu/services/web.scm
View file

@ -1425,14 +1425,19 @@ (define (anonip-shepherd-service config)
(format #false "~a=~a"
option value))))
(list)))))
(list (shepherd-service
(provision (list (symbol-append 'anonip- (string->symbol output))))
(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 _
(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
(let ((pid
(fork+exec-command
(append
(list #$(file-append (anonip-configuration-anonip config)
"/bin/anonip")
@ -1444,7 +1449,8 @@ (define (anonip-shepherd-service config)
'#$(optional anonip-configuration-ipv4mask "--ipv4mask")
'#$(optional anonip-configuration-ipv6mask "--ipv6mask")
'#$(optional anonip-configuration-increment "--increment")
'#$(optional anonip-configuration-replacement "--replacement")
'#$(optional anonip-configuration-replacement
"--replacement")
'#$(optional anonip-configuration-delimiter "--delimiter")
'#$(optional anonip-configuration-regex "--regex"))
;; Run in a UTF-8 locale