summaryrefslogtreecommitdiff
path: root/gnu/services
diff options
context:
space:
mode:
authormuradm <mail@muradm.net>2022-08-29 16:51:18 +0300
committerMaxim Cournoyer <maxim.cournoyer@gmail.com>2022-09-01 08:58:15 -0400
commit80d9edb69d6e980501963fbae9c05e0c024295fe (patch)
treea4222c56b5bbf3a2638f34089a4b4662a39f473b /gnu/services
parent58974e7b1971c9795ab6365b8e80e5140ceba9e5 (diff)
downloadguix-patches-80d9edb69d6e980501963fbae9c05e0c024295fe.tar
guix-patches-80d9edb69d6e980501963fbae9c05e0c024295fe.tar.gz
gnu: fail2ban-service-type: Fix field name serialization.
* gnu/services/security.scm: Wrong condition in string-filter function in fail2ban-jail-configuration-serialize-field-name. Signed-off-by: Maxim Cournoyer <maxim.cournoyer@gmail.com>
Diffstat (limited to 'gnu/services')
-rw-r--r--gnu/services/security.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/gnu/services/security.scm b/gnu/services/security.scm
index 1e0360c07f..9ab23ffb46 100644
--- a/gnu/services/security.scm
+++ b/gnu/services/security.scm
@@ -127,7 +127,7 @@
(string-append "bantime." (substring name 9))))
((string-contains name "-")
(fail2ban-jail-configuration-serialize-field-name
- (string-filter (lambda (c) (equal? c #\-)) name)))
+ (string-filter (lambda (c) (not (equal? c #\-))) name)))
(else name)))
(define (fail2ban-jail-configuration-serialize-string field-name value)