diff options
| author | muradm <mail@muradm.net> | 2022-08-29 16:51:18 +0300 |
|---|---|---|
| committer | Maxim Cournoyer <maxim.cournoyer@gmail.com> | 2022-09-01 08:58:15 -0400 |
| commit | 80d9edb69d6e980501963fbae9c05e0c024295fe (patch) | |
| tree | a4222c56b5bbf3a2638f34089a4b4662a39f473b | |
| parent | 58974e7b1971c9795ab6365b8e80e5140ceba9e5 (diff) | |
| download | guix-80d9edb69d6e980501963fbae9c05e0c024295fe.tar guix-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>
| -rw-r--r-- | gnu/services/security.scm | 2 |
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) |