From patchwork Tue Jan 10 10:11:36 2023 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: muradm X-Patchwork-Id: 46013 Return-Path: X-Original-To: patchwork@mira.cbaines.net Delivered-To: patchwork@mira.cbaines.net Received: by mira.cbaines.net (Postfix, from userid 113) id B5C0D27BBED; Tue, 10 Jan 2023 10:30:21 +0000 (GMT) X-Spam-Checker-Version: SpamAssassin 3.4.6 (2021-04-09) on mira.cbaines.net X-Spam-Level: X-Spam-Status: No, score=-3.7 required=5.0 tests=BAYES_00,DKIM_INVALID, DKIM_SIGNED,MAILING_LIST_MULTI,RCVD_IN_MSPIKE_H2,SPF_HELO_PASS, URIBL_BLOCKED autolearn=ham autolearn_force=no version=3.4.6 Received: from lists.gnu.org (lists.gnu.org [209.51.188.17]) by mira.cbaines.net (Postfix) with ESMTPS id 0B5D027BBE9 for ; Tue, 10 Jan 2023 10:30:21 +0000 (GMT) Received: from localhost ([::1] helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1pFBby-0008EW-H6; Tue, 10 Jan 2023 05:12:06 -0500 Received: from eggs.gnu.org ([2001:470:142:3::10]) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1pFBbv-0008Db-LD for guix-patches@gnu.org; Tue, 10 Jan 2023 05:12:03 -0500 Received: from debbugs.gnu.org ([209.51.188.43]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1pFBbu-00014g-KT for guix-patches@gnu.org; Tue, 10 Jan 2023 05:12:03 -0500 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1pFBbu-0005zG-3K for guix-patches@gnu.org; Tue, 10 Jan 2023 05:12:02 -0500 X-Loop: help-debbugs@gnu.org Subject: [bug#60707] [PATCH] gnu: services: Fix fail2ban configuration serialization. Resent-From: muradm Original-Sender: "Debbugs-submit" Resent-CC: guix-patches@gnu.org Resent-Date: Tue, 10 Jan 2023 10:12:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 60707 X-GNU-PR-Package: guix-patches X-GNU-PR-Keywords: patch To: 60707@debbugs.gnu.org Cc: maxim.cournoyer@gmail.com X-Debbugs-Original-To: guix-patches@gnu.org Received: via spool by submit@debbugs.gnu.org id=B.167334550522987 (code B ref -1); Tue, 10 Jan 2023 10:12:01 +0000 Received: (at submit) by debbugs.gnu.org; 10 Jan 2023 10:11:45 +0000 Received: from localhost ([127.0.0.1]:38855 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1pFBbd-0005yg-Ej for submit@debbugs.gnu.org; Tue, 10 Jan 2023 05:11:45 -0500 Received: from lists.gnu.org ([209.51.188.17]:34514) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1pFBbc-0005yY-5E for submit@debbugs.gnu.org; Tue, 10 Jan 2023 05:11:44 -0500 Received: from eggs.gnu.org ([2001:470:142:3::10]) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1pFBbb-00086v-Vf for guix-patches@gnu.org; Tue, 10 Jan 2023 05:11:44 -0500 Received: from nomad-cl1.staging.muradm.net ([139.162.159.157] helo=nomad-cl1.muradm.net) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1pFBba-0000xC-Gj for guix-patches@gnu.org; Tue, 10 Jan 2023 05:11:43 -0500 Received: from localhost ([127.0.0.1]:45776) by nomad-cl1.muradm.net with esmtps (TLS1.3) tls TLS_ECDHE_RSA_WITH_AES_256_GCM_SHA384 (Exim 4.96) (envelope-from ) id 1pFBa0-0006xy-33; Tue, 10 Jan 2023 10:10:04 +0000 DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=muradm.net; s=mail; h=Content-Transfer-Encoding:MIME-Version:Message-Id:Date:Subject:Cc: To:From:Sender:Reply-To:Content-Type:Content-ID:Content-Description: Resent-Date:Resent-From:Resent-Sender:Resent-To:Resent-Cc:Resent-Message-ID: In-Reply-To:References:List-Id:List-Help:List-Unsubscribe:List-Subscribe: List-Post:List-Owner:List-Archive; bh=7/sD3HpxavYLJn3A9L7MIBmsBXgiY92XrMyhEv+3O+o=; b=ldqpS/wiBWQEta/FOuQbtD+IRG IRPTWTFPe06fTTVXkK2XRDnIo/4VvvB9IDxorF/+pAbjs0Re9HFUcEGUP2ZZ29GMs5ghK5aJ5fz+K ZrjxCl08XsHV1rjPR8kgPIrOy6arp1yw5NMHKPG9rLSkWAVQgbLiEqzdwkf92++Ki+cnCQQn1DwYC zaZM1GNQOvA+S83YXKhCqzxb3CjYXf322CyZ5na6X7cDBeXPfuzdVltCP78usz7N7JlMAq4iME4Ar SIXUiZqbKmsSVP4y1k8QB1mKkI7RkNcg3aiClZ7GWkKkPc9D1ZWR5U96XCEuVkl2oW8WSKDlOmfNC s2YTm/ykkhOOI50WulyagOi9tzIEfNOUbJEvMxhQaebGZo41gGrq1EkLowq4qw1OClDiVffgyHXss QgGhgdrxqvuifP9TLcw+R4fl8UNqCsYqE+B7OBGRmV4NhIuiNTPsc8Zq7TLfXfd+zMEJ0TmKjomqe 2CS+ngba13ibabNTPkMeQvK5; Received: from muradm by localhost with local (Exim 4.96) (envelope-from ) id 1pFBbU-0006oD-15; Tue, 10 Jan 2023 13:11:36 +0300 From: muradm Date: Tue, 10 Jan 2023 13:11:36 +0300 Message-Id: <20230110101136.26169-1-mail@muradm.net> X-Mailer: git-send-email 2.38.1 MIME-Version: 1.0 Received-SPF: pass client-ip=139.162.159.157; envelope-from=mail@muradm.net; helo=nomad-cl1.muradm.net X-Spam_score_int: -20 X-Spam_score: -2.1 X-Spam_bar: -- X-Spam_report: (-2.1 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1, SPF_HELO_NONE=0.001, SPF_PASS=-0.001 autolearn=ham autolearn_force=no X-Spam_action: no action X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-BeenThere: guix-patches@gnu.org List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+patchwork=mira.cbaines.net@gnu.org Sender: guix-patches-bounces+patchwork=mira.cbaines.net@gnu.org X-getmail-retrieved-from-mailbox: Patches 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 - (($ _ key max-count max-time) + (($ 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 - (($ _ name mode) + (($ 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 - (($ _ name arguments) + (($ name arguments) (format #f "~a~a" name