~ruther/guix-local: gnu: fail2ban-service-type: Fix field name serialization.

80d9edb69d6e980501963fbae9c05e0c024295fe — muradm 3 years ago 58974e7

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>

patch browse .tar.gz .zip

1 files changed, 1 insertions(+), 1 deletions(-)

M gnu/services/security.scm

M gnu/services/security.scm => gnu/services/security.scm +1 -1

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