From patchwork Fri Apr 1 19:19:28 2022 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Attila Lendvai X-Patchwork-Id: 38271 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 5F66B27BBEA; Fri, 1 Apr 2022 20:20:11 +0100 (BST) X-Spam-Checker-Version: SpamAssassin 3.4.6 (2021-04-09) on mira.cbaines.net X-Spam-Level: X-Spam-Status: No, score=-2.7 required=5.0 tests=BAYES_00,DKIM_INVALID, DKIM_SIGNED,MAILING_LIST_MULTI,SPF_HELO_PASS autolearn=unavailable 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 2958B27BBE9 for ; Fri, 1 Apr 2022 20:20:11 +0100 (BST) Received: from localhost ([::1]:46174 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1naMoc-0000kk-7O for patchwork@mira.cbaines.net; Fri, 01 Apr 2022 15:20:10 -0400 Received: from eggs.gnu.org ([209.51.188.92]:38246) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1naMoU-0000kc-51 for guix-patches@gnu.org; Fri, 01 Apr 2022 15:20:02 -0400 Received: from debbugs.gnu.org ([209.51.188.43]:49522) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1naMoT-0002eN-Sd for guix-patches@gnu.org; Fri, 01 Apr 2022 15:20:01 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1naMoT-0005TK-Kz for guix-patches@gnu.org; Fri, 01 Apr 2022 15:20:01 -0400 X-Loop: help-debbugs@gnu.org Subject: [bug#54673] [PATCH] services: messaging: Fix two copy-paste mistakes; avoid warnings. Resent-From: Attila Lendvai Original-Sender: "Debbugs-submit" Resent-CC: guix-patches@gnu.org Resent-Date: Fri, 01 Apr 2022 19:20:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 54673 X-GNU-PR-Package: guix-patches X-GNU-PR-Keywords: patch To: 54673@debbugs.gnu.org Cc: Attila Lendvai X-Debbugs-Original-To: guix-patches@gnu.org Received: via spool by submit@debbugs.gnu.org id=B.164884079121012 (code B ref -1); Fri, 01 Apr 2022 19:20:01 +0000 Received: (at submit) by debbugs.gnu.org; 1 Apr 2022 19:19:51 +0000 Received: from localhost ([127.0.0.1]:43419 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1naMoJ-0005Sq-C1 for submit@debbugs.gnu.org; Fri, 01 Apr 2022 15:19:51 -0400 Received: from lists.gnu.org ([209.51.188.17]:33698) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1naMoH-0005Si-Il for submit@debbugs.gnu.org; Fri, 01 Apr 2022 15:19:49 -0400 Received: from eggs.gnu.org ([209.51.188.92]:38218) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1naMoH-0000jb-BK for guix-patches@gnu.org; Fri, 01 Apr 2022 15:19:49 -0400 Received: from [2a00:1450:4864:20::52f] (port=39530 helo=mail-ed1-x52f.google.com) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1naMoF-0002cm-7l for guix-patches@gnu.org; Fri, 01 Apr 2022 15:19:49 -0400 Received: by mail-ed1-x52f.google.com with SMTP id g20so4057143edw.6 for ; Fri, 01 Apr 2022 12:19:46 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20210112; h=sender:from:to:cc:subject:date:message-id:mime-version :content-transfer-encoding; bh=/yeDxvlkD+ptCKz+fKDUYX/89i4gb2AqyKbGN8Id9Sc=; b=pSh4ctBqM1TixHslQQGxBKmvKrWVlhZh0SriTDU6/wj+xusix60iXsXnWzGPmNXFjZ wQBrVR4xnzIwWflxE13NpdXEBb6/Y9sOXZxyv1d+fzeanychInIyPVWoBn3PimBCZXc7 f7dghcA9WJAzNvNbF37C0hKnLfr6fzieEj4voTBFonrhmytaexbQ04dqnvijdFi12jeh MFqeOXzCJrOKwAuV59ki6TwYCNQQ4kSBVsH5tW1jDjzRfXMNvVfaOT40SklZ7LgvP6D9 HaJTu0DyqBJFgW26Kj/C/RYHj5nD+DoJdxpQ85MNdnd764Bn6SjQ9S6cmgVWuoVhiQPb B3yQ== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20210112; h=x-gm-message-state:sender:from:to:cc:subject:date:message-id :mime-version:content-transfer-encoding; bh=/yeDxvlkD+ptCKz+fKDUYX/89i4gb2AqyKbGN8Id9Sc=; b=d9LhtOlPag1JtQLBKqARrcUuoySfzzuMCZDpHwRsZnN/bFD1qc2bnzLH6djpxFxMOi 641/4HXB5IeX6HB6nLAJqQXC6OEQ3yjFkYizxfV2M3RJS2HZC3LG/uX5e00rtozcA9LC xWJk0gRavMbr+8xtFo7w3B95JFHJUVHBZ080rLF3O2FcV+hZD/ikf6cER88dnGawFDdo bMcP/95BlVQLoounFFYVQeKDkQmkYKXN39IDOv42gUdxWeV9dVntwzRnRisOCJkC4M6Q TmvqI3DBTucQ/I3h5zl5qFBg0NOVs2SsTLXJjMrg6Vawt0XtM2tcaluzcCOHW502UcbJ iECA== X-Gm-Message-State: AOAM5305OMufZa4ZVYPNqjA6v7RaPAJpUxh3v8xJlgH9mH8RnotAYXi9 ysmMP8S8PtnFK/Bkkagi2Q2JDRjQJKg= X-Google-Smtp-Source: ABdhPJxA+giPKo2zUHRQkD4l04WFdYkMMQUoOCuRLbRm07XL1lry/CrFA3BHoHKY7PMohW0nCURuNQ== X-Received: by 2002:a50:cddc:0:b0:418:d6b8:7f9a with SMTP id h28-20020a50cddc000000b00418d6b87f9amr22436254edj.141.1648840785456; Fri, 01 Apr 2022 12:19:45 -0700 (PDT) Received: from localhost.localdomain ([2a02:ab88:7509:f780:ed82:a496:f55:e07b]) by smtp.gmail.com with ESMTPSA id g9-20020aa7c849000000b00412fc6bf26dsm1558511edt.80.2022.04.01.12.19.44 (version=TLS1_3 cipher=TLS_AES_256_GCM_SHA384 bits=256/256); Fri, 01 Apr 2022 12:19:44 -0700 (PDT) From: Attila Lendvai Date: Fri, 1 Apr 2022 21:19:28 +0200 Message-Id: <20220401191928.16450-1-attila@lendvai.name> X-Mailer: git-send-email 2.34.0 MIME-Version: 1.0 X-Host-Lookup-Failed: Reverse DNS lookup failed for 2a00:1450:4864:20::52f (failed) Received-SPF: pass client-ip=2a00:1450:4864:20::52f; envelope-from=attila.lendvai@gmail.com; helo=mail-ed1-x52f.google.com X-Spam_score_int: 0 X-Spam_score: -0.1 X-Spam_bar: / X-Spam_report: (-0.1 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_EF=-0.1, FREEMAIL_FORGED_FROMDOMAIN=0.249, FREEMAIL_FROM=0.001, HEADER_FROM_DIFFERENT_DOMAINS=0.249, PDS_HP_HELO_NORDNS=0.659, RCVD_IN_DNSWL_NONE=-0.0001, RDNS_NONE=0.793, SPF_HELO_NONE=0.001, SPF_PASS=-0.001, T_SCC_BODY_TEXT_LINE=-0.01 autolearn=no 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" X-getmail-retrieved-from-mailbox: Patches --- gnu/services/messaging.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/gnu/services/messaging.scm b/gnu/services/messaging.scm index 6ed55453db..4bceb1d37a 100644 --- a/gnu/services/messaging.scm +++ b/gnu/services/messaging.scm @@ -180,7 +180,7 @@ (define (file-name-list? val) (and (list? val) (and-map file-name? val))) (define (serialize-file-name-list field-name val) (serialize-string-list field-name val)) -(define-maybe file-name) +(define-maybe file-name-list) (define (file-object? val) (or (file-like? val) (file-name? val))) @@ -192,7 +192,7 @@ (define (file-object-list? val) (and (list? val) (and-map file-object? val))) (define (serialize-file-object-list field-name val) (serialize-string-list field-name val)) -(define-maybe file-object) +(define-maybe file-object-list) (define (raw-content? val) (not (eq? val 'disabled)))