[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[bug#60707] [PATCH] gnu: services: Fix fail2ban configuration serializat
From: |
muradm |
Subject: |
[bug#60707] [PATCH] gnu: services: Fix fail2ban configuration serialization. |
Date: |
Tue, 10 Jan 2023 13:11:36 +0300 |
This fixes a regression from 543d971ed2a1d9eb934af1f51930741d7cc4e7ef whereby
match-lambda due to configuration field reordering.
* gnu/services/security.scm:
[serialize-fail2ban-ignore-cache-configuration]: Remove first _ field.
[serialize-fail2ban-jail-filter-configuration]: Remove first _ field.
[serialize-fail2ban-jail-action-configuration]: Remove first _ field.
---
gnu/services/security.scm | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/gnu/services/security.scm b/gnu/services/security.scm
index 50111455fb..53b3914a4f 100644
--- a/gnu/services/security.scm
+++ b/gnu/services/security.scm
@@ -44,7 +44,7 @@ (define-configuration/no-serialization
fail2ban-ignore-cache-configuration
(define serialize-fail2ban-ignore-cache-configuration
(match-lambda
- (($ <fail2ban-ignore-cache-configuration> _ key max-count max-time)
+ (($ <fail2ban-ignore-cache-configuration> key max-count max-time)
(format #f "key=\"~a\", max-count=~d, max-time=~d"
key max-count max-time))))
@@ -56,7 +56,7 @@ (define-configuration/no-serialization
fail2ban-jail-filter-configuration
(define serialize-fail2ban-jail-filter-configuration
(match-lambda
- (($ <fail2ban-jail-filter-configuration> _ name mode)
+ (($ <fail2ban-jail-filter-configuration> name mode)
(format #f "~a~@[[mode=~a]~]" name (maybe-value mode)))))
(define (argument? a)
@@ -88,7 +88,7 @@ (define
(serialize-fail2ban-jail-action-configuration-arguments args)
(define serialize-fail2ban-jail-action-configuration
(match-lambda
- (($ <fail2ban-jail-action-configuration> _ name arguments)
+ (($ <fail2ban-jail-action-configuration> name arguments)
(format
#f "~a~a"
name
--
2.38.1
- [bug#60707] [PATCH] gnu: services: Fix fail2ban configuration serialization.,
muradm <=